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

Update ppc backend for recent string intrinsic changes

db4
Slava Pestov 2008-12-06 00:12:07 -06:00
parent 3673a3e7c7
commit b06cfc6225
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/cpu/ppc/ppc.factor
View File

@ -139,9 +139,9 @@ M:: ppc %string-nth ( dst src index temp -- )
"end" define-label "end" define-label
temp src index ADD temp src index ADD
dst temp string-offset LBZ dst temp string-offset LBZ
0 dst HEX: 80 CMPI
"end" get BLT
temp src string-aux-offset LWZ temp src string-aux-offset LWZ
0 temp \ f tag-number CMPI
"end" get BEQ
temp temp index ADD temp temp index ADD
temp temp index ADD temp temp index ADD
temp temp byte-array-offset LHZ temp temp byte-array-offset LHZ
@ -150,6 +150,10 @@ M:: ppc %string-nth ( dst src index temp -- )
"end" resolve-label "end" resolve-label
] with-scope ; ] with-scope ;
M:: ppc %set-string-nth-fast ( ch obj index temp -- )
temp obj index ADD
ch temp string-offset STB ;
M: ppc %add ADD ; M: ppc %add ADD ;
M: ppc %add-imm ADDI ; M: ppc %add-imm ADDI ;
M: ppc %sub swap SUBF ; M: ppc %sub swap SUBF ;