factor: add newlines to .factor files

[factor.git] / basis / bootstrap / assembler / arm.factor

diff --git a/basis/bootstrap/assembler/arm.factor b/basis/bootstrap/assembler/arm.factor
index f4edc5ae5eaec4ca5914324dbe4c00c9daf7cb08..fe9b1233c7dfc624448a5db494f370517ee11779 100644 (file)
--- a/basis/bootstrap/assembler/arm.factor
+++ b/basis/bootstrap/assembler/arm.factor
@@ -3,222 +3,9 @@
 USING: bootstrap.image.private cpu.arm.assembler kernel
 kernel.private layouts locals.backend math.private namespaces
 slots.private strings.private ;
-IN: bootstrap.arm
+IN: bootstrap.assembler.arm
 
 big-endian off
 
-[
-] CALLBACK-STUB jit-define
+! [ "bootstrap.assembler.arm" forget-vocab ] with-compilation-unit
 
-[
-] JIT-PUSH-LITERAL jit-define
-
-[
-] JIT-WORD-CALL jit-define
-
-[
-] JIT-IF jit-define
-
-: jit->r ( -- )
-    1 bootstrap-cells rs-reg rs-reg ADDi64
-    -1 bootstrap-cells ds-reg rs-reg LDR-post ;
-
-: jit-r> ( -- )
-    1 bootstrap-cells ds-reg ds-reg ADDi64
-    -1 bootstrap-cells rs-reg ds-reg LDR-post ;
-
-: jit-2>r ( -- )
-    1 bootstrap-cells rs-reg rs-reg ADDi64
-    -1 bootstrap-cells ds-reg rs-reg LDR-post
-    1 bootstrap-cells rs-reg rs-reg ADDi64
-    -1 bootstrap-cells ds-reg rs-reg LDR-post ;
-
-: jit-2r> ( -- )
-    1 bootstrap-cells ds-reg ds-reg ADDi64
-    -1 bootstrap-cells rs-reg ds-reg LDR-post
-    1 bootstrap-cells ds-reg ds-reg ADDi64
-    -1 bootstrap-cells rs-reg ds-reg LDR-post ;
-
-: jit-3>r ( -- )
-    1 bootstrap-cells rs-reg rs-reg ADDi64
-    -1 bootstrap-cells ds-reg rs-reg LDR-post
-    1 bootstrap-cells rs-reg rs-reg ADDi64
-    -1 bootstrap-cells ds-reg rs-reg LDR-post
-    1 bootstrap-cells rs-reg rs-reg ADDi64
-    -1 bootstrap-cells ds-reg rs-reg LDR-post ;
-
-: jit-3r> ( -- )
-    1 bootstrap-cells ds-reg ds-reg ADDi64
-    -1 bootstrap-cells rs-reg ds-reg LDR-post
-    1 bootstrap-cells ds-reg ds-reg ADDi64
-    -1 bootstrap-cells rs-reg ds-reg LDR-post
-    1 bootstrap-cells ds-reg ds-reg ADDi64
-    -1 bootstrap-cells rs-reg ds-reg LDR-post ;
-
-[
-    ! jit->r
-    ! 0 CALL f rc-relative rel-word
-    ! jit-r>
-] JIT-DIP jit-define
-
-[
-] JIT-2DIP jit-define
-
-[
-] JIT-3DIP jit-define
-
-[
-] JIT-EXECUTE jit-define
-
-[
-] JIT-PROLOG jit-define
-
-[
-] JIT-EPILOG jit-define
-
-[
-] JIT-RETURN jit-define
-
-
-! ! ! Polymorphic inline caches
-! The PIC stubs are not permitted to touch pic-tail-reg.
-
-! Load a value from a stack position
-[
-] PIC-LOAD jit-define
-
-[
-] PIC-TAG jit-define
-
-
-[
-] PIC-TUPLE jit-define
-
-[
-] PIC-CHECK-TAG jit-define
-
-[
-] PIC-HIT jit-define
-
-[
-] MEGA-LOOKUP jit-define
-
-
-{
-    ! ## Fixnums
-
-    ! ### Add
-    { fixnum+fast [
-    ] }
-
-    ! ### Bit stuff
-    { fixnum-bitand [ 
-    ] }
-    { fixnum-bitnot [
-    ] }
-    { fixnum-bitor [
-    ] }
-    { fixnum-bitxor [
-    ] }
-    { fixnum-shift-fast [
-    ] }
-
-    ! ### Comparisons
-    { both-fixnums? [
-    ] }
-    { eq? [
-    ] }
-    { fixnum> [
-    ] }
-    { fixnum>= [
-    ] }
-    { fixnum< [
-    ] }
-    { fixnum<= [
-    ] }
-
-    ! ### Div/mod
-    { fixnum-mod [
-    ] }
-    { fixnum/i-fast [
-    ] }
-    { fixnum/mod-fast [
-    ] }
-
-    ! ### Mul
-    { fixnum*fast [
-    ] }
-
-    ! ### Sub
-    { fixnum-fast [
-    ] }
-
-    ! ## Locals
-    { drop-locals [
-    ] }
-    { get-local [
-    ] }
-    { load-local [
-    ] }
-
-    ! ## Objects
-    { slot [
-    ] }
-    { string-nth-fast [
-    ] }
-    { tag [
-    ] }
-
-    ! ## Shufflers
-
-    ! ### Drops
-    { drop [ ] } ! ds-reg SUBi64 ] } ! ds-reg bootstrap-cell SUB ] }
-    { 2drop [ ] } ! ds-reg 2 bootstrap-cells SUB ] }
-    { 3drop [ ] } ! ds-reg 3 bootstrap-cells SUB ] }
-    { 4drop [ ] } ! ds-reg 4 bootstrap-cells SUB ] }
-
-    ! ### Dups
-    { dup [
-    ] }
-    { 2dup [
-    ] }
-    { 3dup [
-    ] }
-    { 4dup [
-    ] }
-    { dupd [
-    ] }
-
-    ! ### Misc shufflers
-    { over [
-    ] }
-    { pick [
-    ] }
-
-    ! ### Nips
-    { nip [
-    ] }
-    { 2nip [
-    ] }
-
-    ! ### Swaps
-    { -rot [
-    ] }
-    { rot [
-    ] }
-    { swap [
-    ] }
-    { swapd [
-    ] }
-
-    ! ## Signal handling
-    { leaf-signal-handler [
-    ] }
-    { signal-handler [
-    ] }
-
-
-} define-sub-primitives
-
-
-! [ "bootstrap.arm" forget-vocab ] with-compilation-unit
\ No newline at end of file