compiler.cfg.instructions: ##read -> read-insn and ##write -> write-insn
parent
81c7659360
commit
78d5c0a743
|
@ -180,7 +180,7 @@ M: ##box-displaced-alien analyze-aliases
|
||||||
[ call-next-method ]
|
[ call-next-method ]
|
||||||
[ base>> heap-ac get merge-acs ] bi ;
|
[ base>> heap-ac get merge-acs ] bi ;
|
||||||
|
|
||||||
M: ##read analyze-aliases
|
M: read-insn analyze-aliases
|
||||||
call-next-method
|
call-next-method
|
||||||
dup [ dst>> ] [ insn-slot# ] [ insn-object ] tri
|
dup [ dst>> ] [ insn-slot# ] [ insn-object ] tri
|
||||||
2dup live-slot dup
|
2dup live-slot dup
|
||||||
|
@ -193,7 +193,7 @@ M: ##read analyze-aliases
|
||||||
#! from?
|
#! from?
|
||||||
live-slot = ;
|
live-slot = ;
|
||||||
|
|
||||||
M:: ##write analyze-aliases ( insn -- insn )
|
M:: write-insn analyze-aliases ( insn -- insn )
|
||||||
insn src>> resolve :> src
|
insn src>> resolve :> src
|
||||||
insn insn-slot# :> slot#
|
insn insn-slot# :> slot#
|
||||||
insn insn-object :> vreg
|
insn insn-object :> vreg
|
||||||
|
|
|
@ -834,8 +834,8 @@ UNION: conditional-branch-insn
|
||||||
##fixnum-mul ;
|
##fixnum-mul ;
|
||||||
|
|
||||||
! For alias analysis
|
! For alias analysis
|
||||||
UNION: ##read ##slot ##slot-imm ##vm-field ##alien-global ;
|
UNION: read-insn ##slot ##slot-imm ##vm-field ##alien-global ;
|
||||||
UNION: ##write ##set-slot ##set-slot-imm ##set-vm-field ;
|
UNION: write-insn ##set-slot ##set-slot-imm ##set-vm-field ;
|
||||||
|
|
||||||
UNION: alien-call-insn
|
UNION: alien-call-insn
|
||||||
##alien-assembly
|
##alien-assembly
|
||||||
|
|
Loading…
Reference in New Issue