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 ]
|
||||
[ base>> heap-ac get merge-acs ] bi ;
|
||||
|
||||
M: ##read analyze-aliases
|
||||
M: read-insn analyze-aliases
|
||||
call-next-method
|
||||
dup [ dst>> ] [ insn-slot# ] [ insn-object ] tri
|
||||
2dup live-slot dup
|
||||
|
@ -193,7 +193,7 @@ M: ##read analyze-aliases
|
|||
#! from?
|
||||
live-slot = ;
|
||||
|
||||
M:: ##write analyze-aliases ( insn -- insn )
|
||||
M:: write-insn analyze-aliases ( insn -- insn )
|
||||
insn src>> resolve :> src
|
||||
insn insn-slot# :> slot#
|
||||
insn insn-object :> vreg
|
||||
|
|
|
@ -834,8 +834,8 @@ UNION: conditional-branch-insn
|
|||
##fixnum-mul ;
|
||||
|
||||
! For alias analysis
|
||||
UNION: ##read ##slot ##slot-imm ##vm-field ##alien-global ;
|
||||
UNION: ##write ##set-slot ##set-slot-imm ##set-vm-field ;
|
||||
UNION: read-insn ##slot ##slot-imm ##vm-field ##alien-global ;
|
||||
UNION: write-insn ##set-slot ##set-slot-imm ##set-vm-field ;
|
||||
|
||||
UNION: alien-call-insn
|
||||
##alien-assembly
|
||||
|
|
Loading…
Reference in New Issue