From 8160bb036d8b5cb61e7d9ebdb74b09b7566b562c Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 23 Mar 2013 22:59:18 -0700 Subject: [PATCH] compiler.cfg.linear-scan.live-inervals: Rename live-interval --- basis/compiler/codegen/labels/labels.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/compiler/codegen/labels/labels.factor b/basis/compiler/codegen/labels/labels.factor index f15b30ccb5..ab5e79e957 100644 --- a/basis/compiler/codegen/labels/labels.factor +++ b/basis/compiler/codegen/labels/labels.factor @@ -16,10 +16,10 @@ TUPLE: label offset ; dup label? [ get ] unless 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 -- ) - compiled-offset \ label-fixup boa label-table get push ; + compiled-offset \ label-fixup-state boa label-table get push ; : compute-target ( label-fixup -- offset ) label>> offset>> [ "Unresolved label" throw ] unless* ;