From d018160981266cd412b5432d6e4cc2895333f38f Mon Sep 17 00:00:00 2001 From: florian Date: Sat, 4 Dec 2004 15:23:00 +0000 Subject: [PATCH] * fixed compilation --- compiler/sparc/ncpuset.pas | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/compiler/sparc/ncpuset.pas b/compiler/sparc/ncpuset.pas index d98afa88fc..cec8d15afb 100644 --- a/compiler/sparc/ncpuset.pas +++ b/compiler/sparc/ncpuset.pas @@ -36,7 +36,7 @@ unit ncpuset; protected procedure optimizevalues(var max_linear_list:aint;var max_dist:aword);override; function has_jumptable : boolean;override; - procedure genjumptable(hp : pcaserecord;min_,max_ : aint);override; + procedure genjumptable(hp : pcaselabel;min_,max_ : aint);override; end; @@ -63,7 +63,7 @@ unit ncpuset; end; - procedure tcpucasenode.genjumptable(hp : pcaserecord;min_,max_ : aint); + procedure tcpucasenode.genjumptable(hp : pcaselabel;min_,max_ : aint); var table : tasmlabel; last : TConstExprInt; @@ -71,7 +71,7 @@ unit ncpuset; href : treference; jumpsegment : TAAsmOutput; - procedure genitem(t : pcaserecord); + procedure genitem(t : pcaselabel); var i : aint; begin @@ -81,7 +81,7 @@ unit ncpuset; for i:=last+1 to t^._low-1 do jumpSegment.concat(Tai_const.Create_sym(elselabel)); for i:=t^._low to t^._high do - jumpSegment.concat(Tai_const.Create_sym(t^.statement)); + jumpSegment.concat(Tai_const.Create_sym(blocklabel(t^.blockid))); last:=t^._high; if assigned(t^.greater) then genitem(t^.greater); @@ -134,7 +134,10 @@ begin end. { $Log$ - Revision 1.3 2004-10-31 14:24:47 florian + Revision 1.4 2004-12-04 15:23:00 florian + * fixed compilation + + Revision 1.3 2004/10/31 14:24:47 florian * fixed jump table for sparc Revision 1.2 2004/10/30 22:01:11 florian