From 5afd8c5e76a3735824e4d9aae5a5753bb0176ade Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Fri, 5 May 2006 09:01:55 +0000 Subject: [PATCH] * fixed LOC_JUMP handling for case nodes git-svn-id: trunk@3421 - --- compiler/ncgset.pas | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/compiler/ncgset.pas b/compiler/ncgset.pas index c2f4c7fdac..9188001785 100644 --- a/compiler/ncgset.pas +++ b/compiler/ncgset.pas @@ -717,7 +717,7 @@ implementation { save current current_procinfo.CurrTrueLabel and current_procinfo.CurrFalseLabel } isjump:=false; - if left.location.loc=LOC_JUMP then + if left.expectloc=LOC_JUMP then begin otl:=current_procinfo.CurrTrueLabel; current_asmdata.getjumplabel(current_procinfo.CurrTrueLabel); @@ -743,7 +743,10 @@ implementation begin current_procinfo.CurrTrueLabel:=otl; current_procinfo.CurrFalseLabel:=ofl; - end; + end + else + if (left.location.loc=LOC_JUMP) then + internalerror(2006050501); { we need the min_label always to choose between } { cmps and subs/decs }