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

%type vop on powerpc

cvs
Slava Pestov 2005-05-31 01:10:08 +00:00
parent fc59846b4e
commit a51e262dae
4 changed files with 34 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
doc/vops.txt
View File

@ -54,4 +54,5 @@ VOPs:
%untag-fixnum shift vop-in-1 to the right by 3 bits, store result in %untag-fixnum shift vop-in-1 to the right by 3 bits, store result in
vop-in-1 (which should equal vop-out-1!) vop-in-1 (which should equal vop-out-1!)
%type Intrinstic version of type primitive. It outputs an
unboxed value in vop-out-1.

3
library/compiler/ppc/alien.factor
View File

@ -4,9 +4,6 @@ IN: assembler
USING: alien compiler compiler-backend inference kernel USING: alien compiler compiler-backend inference kernel
kernel-internals lists math memory namespaces words ; kernel-internals lists math memory namespaces words ;
: compile-c-call ( symbol dll -- )
2dup 1 1 rel-dlsym dlsym 19 LOAD32 19 MTLR BLRL ;
M: %alien-invoke generate-node ( vop -- ) M: %alien-invoke generate-node ( vop -- )
vop-in-1 uncons load-library compile-c-call ; vop-in-1 uncons load-library compile-c-call ;

3
library/compiler/ppc/assembler.factor
View File

@ -108,6 +108,9 @@ USING: compiler errors kernel math memory words ;
: ORC 0 (ORC) ; : ORC 0 (ORC) ;
: ORC. 1 (ORC) ; : ORC. 1 (ORC) ;
: MR over OR ;
: MR. over OR. ;
: (SLW) 24 swap x-form 31 insn ; : (SLW) 24 swap x-form 31 insn ;
: SLW 0 (SLW) ; : SLW 0 (SLW) ;
: SLW. 1 (SLW) ; : SLW. 1 (SLW) ;

31
library/compiler/ppc/generator.factor
View File

@ -1,14 +1,17 @@
! Copyright (C) 2005 Slava Pestov. ! Copyright (C) 2005 Slava Pestov.
! See http://factor.sf.net/license.txt for BSD license. ! See http://factor.sf.net/license.txt for BSD license.
IN: compiler-backend IN: compiler-backend
USING: assembler compiler inference kernel kernel-internals USING: alien assembler compiler inference kernel
lists math memory namespaces words ; kernel-internals lists math memory namespaces words ;
! PowerPC register assignments ! PowerPC register assignments
! r14 data stack ! r14 data stack
! r15 call stack ! r15 call stack
! r16-r30 vregs ! r16-r30 vregs
: compile-c-call ( symbol dll -- )
2dup 1 1 rel-dlsym dlsym 19 LOAD32 19 MTLR BLRL ;
M: integer v>operand tag-bits shift ; M: integer v>operand tag-bits shift ;
M: vreg v>operand vreg-n 17 + ; M: vreg v>operand vreg-n 17 + ;
@ -96,6 +99,30 @@ M: %dispatch generate-node ( vop -- )
17 MTLR 17 MTLR
BLR ; BLR ;
M: %type generate-node ( vop -- )
0 <vreg> check-src
<label> "f" set
<label> "end" set
! Get the tag
17 18 tag-mask ANDI
! Compare with object tag number (3).
0 18 object-tag CMPI
! Jump if the object doesn't store type info in its header
"end" get BNE
! It does store type info in its header
! Is the pointer itself equal to 3? Then its F_TYPE (9).
0 17 object-tag CMPI
"f" get BEQ
! The pointer is not equal to 3. Load the object header.
18 17 object-tag neg LWZ
18 18 3 SRAWI
"end" get B
"f" get save-xt
! The pointer is equal to 3. Load F_TYPE (9).
f type 18 LI
"end" get save-xt
18 17 MR ;
M: %arithmetic-type generate-node ( vop -- ) M: %arithmetic-type generate-node ( vop -- )
0 <vreg> check-dest 0 <vreg> check-dest
<label> "end" set <label> "end" set