steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

factor: rename REGISTER: and fix a stay ;

locals-and-roots
Doug Coleman 2016-06-22 00:10:50 -07:00
parent f89f5312ae
commit 6ab7214185
2 changed files with 18 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
language/cpu/arm/assembler/assembler.factor
View File

@ -11,7 +11,7 @@ SYMBOL: registers
V{ } registers set-global V{ } registers set-global
SYNTAX: register: SYNTAX: \ REGISTER:
scan-new-word scan-new-word
[ define-symbol ] [ define-symbol ]
[ registers get length "register" set-word-prop ] [ registers get length "register" set-word-prop ]
@ -20,22 +20,22 @@ SYNTAX: register:
COMPILE> COMPILE>
register: R0 REGISTER: R0
register: R1 REGISTER: R1
register: R2 REGISTER: R2
register: R3 REGISTER: R3
register: R4 REGISTER: R4
register: R5 REGISTER: R5
register: R6 REGISTER: R6
register: R7 REGISTER: R7
register: R8 REGISTER: R8
register: R9 REGISTER: R9
register: R10 REGISTER: R10
register: R11 REGISTER: R11
register: R12 REGISTER: R12
register: R13 REGISTER: R13
register: R14 REGISTER: R14
register: R15 REGISTER: R15
ALIAS: SL R10 ; ALIAS: FP R11 ; ALIAS: IP R12 ; ALIAS: SL R10 ; ALIAS: FP R11 ; ALIAS: IP R12 ;
ALIAS: SP R13 ; ALIAS: LR R14 ; ALIAS: PC R15 ; ALIAS: SP R13 ; ALIAS: LR R14 ; ALIAS: PC R15 ;

2
tools/tools/annotations/annotations-tests.factor
View File

@ -34,7 +34,7 @@ M: object another-generic ;
\ another-generic watch \ another-generic watch
{ } [ "in: tools.annotations.tests GENERIC: another-generic ( a -- b )" eval( -- ) ; ] unit-test { } [ "in: tools.annotations.tests GENERIC: another-generic ( a -- b ) ;" eval( -- ) ] unit-test
{ } [ \ another-generic reset ] unit-test { } [ \ another-generic reset ] unit-test