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

compiler.cfg.linear-scan.live-inervals: Rename live-interval

db4
Doug Coleman 2013-03-23 22:59:18 -07:00
parent 5f377c0849
commit 8160bb036d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,10 +16,10 @@ TUPLE: label offset ;
dup label? [ get ] unless dup label? [ get ] unless
compiled-offset >>offset drop ; compiled-offset >>offset drop ;
TUPLE: label-fixup { label label } { class integer } { offset integer } ; TUPLE: label-fixup-state { label label } { class integer } { offset integer } ;
: label-fixup ( label class -- ) : label-fixup ( label class -- )
compiled-offset \ label-fixup boa label-table get push ; compiled-offset \ label-fixup-state boa label-table get push ;
: compute-target ( label-fixup -- offset ) : compute-target ( label-fixup -- offset )
label>> offset>> [ "Unresolved label" throw ] unless* ; label>> offset>> [ "Unresolved label" throw ] unless* ;