Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
cleaned up vm-field-ptr compiler code
  • Loading branch information
phildawes committed Sep 24, 2009
1 parent 4adcdcc commit 67aec74
Show file tree
Hide file tree
Showing 3 changed files with 3 additions and 5 deletions.
2 changes: 1 addition & 1 deletion basis/compiler/cfg/alias-analysis/alias-analysis.factor
Expand Up @@ -190,7 +190,7 @@ M: ##slot-imm insn-slot# slot>> ;
M: ##set-slot insn-slot# slot>> constant ;
M: ##set-slot-imm insn-slot# slot>> ;
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-imm insn-object obj>> resolve ;
Expand Down
2 changes: 1 addition & 1 deletion basis/compiler/cfg/instructions/instructions.factor
Expand Up @@ -492,7 +492,7 @@ literal: symbol library ;

INSN: ##vm-field-ptr
def: dst/int-rep
literal: fieldname ;
literal: field-name ;

! FFI
INSN: ##alien-invoke
Expand Down
4 changes: 1 addition & 3 deletions basis/compiler/codegen/codegen.factor
Expand Up @@ -212,6 +212,7 @@ CODEGEN: ##compare-imm %compare-imm
CODEGEN: ##compare-float-ordered %compare-float-ordered
CODEGEN: ##compare-float-unordered %compare-float-unordered
CODEGEN: ##save-context %save-context
CODEGEN: ##vm-field-ptr %vm-field-ptr

CODEGEN: _fixnum-add %fixnum-add
CODEGEN: _fixnum-sub %fixnum-sub
Expand Down Expand Up @@ -278,9 +279,6 @@ M: ##alien-global generate-insn
[ dst>> ] [ symbol>> ] [ library>> ] tri
%alien-global ;

M: ##vm-field-ptr generate-insn
[ dst>> ] [ fieldname>> ] bi %vm-field-ptr ;

! ##alien-invoke
GENERIC: next-fastcall-param ( rep -- )

Expand Down

0 comments on commit 67aec74

Please sign in to comment.