paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-22 08:09:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* free temps created for case-of-string-statements

Browse Source 
git-svn-id: trunk@22100 -
This commit is contained in:
Jonas Maebe 2012-08-16 19:22:23 +00:00
parent f3ad4af343
commit 3983342648
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/nset.pas
View File

@ -646,9 +646,9 @@ implementation
function tcasenode.pass_1 : tnode;
var
i : integer;
node_thenblock,node_elseblock,if_node : tnode;
node_thenblock,node_elseblock,if_node,temp_cleanup : tnode;
tempcaseexpr : ttempcreatenode;
if_block, init_block,stmt_block : tblocknode;
if_block, init_block, stmt_block : tblocknode;
stmt : tstatementnode;
endlabel : tlabelnode;
@ -684,6 +684,7 @@ implementation
begin
result:=nil;
init_block:=nil;
temp_cleanup:=nil;
expectloc:=LOC_VOID;
{ evalutes the case expression }
@ -702,6 +703,7 @@ implementation
tempcaseexpr :=
ctempcreatenode.create(
left.resultdef, left.resultdef.size, tt_persistent, true);
temp_cleanup := ctempdeletenode.create(tempcaseexpr);
typecheckpass(tnode(tempcaseexpr));
addstatement(stmt, tempcaseexpr);
@ -766,6 +768,8 @@ implementation
addstatement(stmt,cgotonode.create(endlabel.labsym));
addstatement(stmt, stmt_block);
addstatement(stmt, endlabel);
if assigned(temp_cleanup) then
addstatement(stmt, temp_cleanup);
result := if_block;
elseblock := nil;
exit;