From cbec738829ee9bcb2e7bdb879d439121a06c1e41 Mon Sep 17 00:00:00 2001 From: florian Date: Mon, 23 Dec 2019 23:07:26 +0000 Subject: [PATCH] * last commit was not complete/earlier version committed git-svn-id: trunk@43767 - --- compiler/nset.pas | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/compiler/nset.pas b/compiler/nset.pas index 1f37f283e1..0832b97b20 100644 --- a/compiler/nset.pas +++ b/compiler/nset.pas @@ -929,7 +929,7 @@ implementation begin result:=cifnode.create_internal( caddnode.create_internal(equaln,left.getcopy,cordconstnode.create(flabels^._low,left.resultdef,false)), - pcaseblock(blocks[flabels^.blockid])^.statement.getcopy,elseblock); + pcaseblock(blocks[flabels^.blockid])^.statement,elseblock); end else begin @@ -938,9 +938,10 @@ implementation caddnode.create_internal(gten,left.getcopy,cordconstnode.create(flabels^._low,left.resultdef,false)), caddnode.create_internal(lten,left.getcopy,cordconstnode.create(flabels^._high,left.resultdef,false)) ), - pcaseblock(blocks[flabels^.blockid])^.statement.getcopy,elseblock); + pcaseblock(blocks[flabels^.blockid])^.statement,elseblock); end; elseblock:=nil; + pcaseblock(blocks[flabels^.blockid])^.statement:=nil; exit; end; end;