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

cleaned up vm-field-ptr compiler code

db4
Phil Dawes 2009-09-23 19:40:34 +01:00
parent 57840562f5
commit 84faf2431f
3 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/compiler/cfg/alias-analysis/alias-analysis.factor
View File

@ -190,7 +190,7 @@ M: ##slot-imm insn-slot# slot>> ;
M: ##set-slot insn-slot# slot>> constant ; M: ##set-slot insn-slot# slot>> constant ;
M: ##set-slot-imm insn-slot# slot>> ; M: ##set-slot-imm insn-slot# slot>> ;
M: ##alien-global insn-slot# [ library>> ] [ symbol>> ] bi 2array ; M: ##alien-global insn-slot# [ library>> ] [ symbol>> ] bi 2array ;
M: ##vm-field-ptr insn-slot# fieldname>> 1array ; ! is this right? M: ##vm-field-ptr insn-slot# field-name>> ; ! is this right?
M: ##slot insn-object obj>> resolve ; M: ##slot insn-object obj>> resolve ;
M: ##slot-imm insn-object obj>> resolve ; M: ##slot-imm insn-object obj>> resolve ;

2
basis/compiler/cfg/instructions/instructions.factor
View File

@ -492,7 +492,7 @@ literal: symbol library ;
INSN: ##vm-field-ptr INSN: ##vm-field-ptr
def: dst/int-rep def: dst/int-rep
literal: fieldname ; literal: field-name ;
! FFI ! FFI
INSN: ##alien-invoke INSN: ##alien-invoke

4
basis/compiler/codegen/codegen.factor
View File

@ -212,6 +212,7 @@ CODEGEN: ##compare-imm %compare-imm
CODEGEN: ##compare-float-ordered %compare-float-ordered CODEGEN: ##compare-float-ordered %compare-float-ordered
CODEGEN: ##compare-float-unordered %compare-float-unordered CODEGEN: ##compare-float-unordered %compare-float-unordered
CODEGEN: ##save-context %save-context CODEGEN: ##save-context %save-context
CODEGEN: ##vm-field-ptr %vm-field-ptr
CODEGEN: _fixnum-add %fixnum-add CODEGEN: _fixnum-add %fixnum-add
CODEGEN: _fixnum-sub %fixnum-sub CODEGEN: _fixnum-sub %fixnum-sub
@ -278,9 +279,6 @@ M: ##alien-global generate-insn
[ dst>> ] [ symbol>> ] [ library>> ] tri [ dst>> ] [ symbol>> ] [ library>> ] tri
%alien-global ; %alien-global ;
M: ##vm-field-ptr generate-insn
[ dst>> ] [ fieldname>> ] bi %vm-field-ptr ;
! ##alien-invoke ! ##alien-invoke
GENERIC: next-fastcall-param ( rep -- ) GENERIC: next-fastcall-param ( rep -- )