arm: move to cpu.arm.

[factor-unmaintained.git] / arm / 4 / 4.factor

diff --git a/arm/4/4.factor b/arm/4/4.factor
deleted file mode 100644 (file)
index 0d317fd..0000000
--- a/arm/4/4.factor
+++ /dev/null
@@ -1,45 +0,0 @@
-! Copyright (C) 2007 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: alien arrays cpu.architecture cpu.arm.assembler
-cpu.arm.architecture cpu.arm5.assembler kernel kernel.private
-math math.private namespaces sequences words quotations
-byte-arrays hashtables.private hashtables generator
-generator.registers generator.fixup sequences.private
-strings.private ;
-IN: cpu.arm4
-
-: (%char-slot)
-    "out" operand string-offset MOV
-    "out" operand dup "n" operand 2 <LSR> ADD ;
-
-\ char-slot [
-    (%char-slot)
-    "out" operand "obj" operand "out" operand <+> LDRH
-    "out" operand dup %tag-fixnum
-] H{
-    { +input+ { { f "n" } { f "obj" } } }
-    { +scratch+ { { f "out" } } }
-    { +output+ { "out" } }
-} define-intrinsic
-
-\ set-char-slot [
-    "val" operand dup %untag-fixnum
-    (%char-slot)
-    "val" operand "obj" operand "out" operand <+> STRH
-] H{
-    { +input+ { { f "val" } { f "n" } { f "obj" } } }
-    { +scratch+ { { f "out" } } }
-    { +clobber+ { "val" } }
-} define-intrinsic
-
-\ alien-signed-1 [ LDRSB ]
-\ set-alien-signed-1 [ STRB ]
-define-alien-integer-intrinsics
-
-\ alien-unsigned-2 [ LDRH ]
-\ set-alien-unsigned-2 [ STRH ]
-define-alien-integer-intrinsics
-
-\ alien-signed-2 [ LDRSH ]
-\ set-alien-signed-2 [ STRH ]
-define-alien-integer-intrinsics