paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 14:47:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix parameter order for compilerproc created by raise nodes

Browse Source 
git-svn-id: trunk@24357 -
This commit is contained in:
florian 2013-04-28 16:34:28 +00:00
parent 65acb03936
commit ab39e6f7d8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/nflw.pas
View File

@ -1961,10 +1961,10 @@ implementation
end
else
begin
right:=cloadparentfpnode.create(current_procinfo.procdef);
third:=cinlinenode.create(in_get_frame,false,nil);
current_addr:=clabelnode.create(cnothingnode.create,tlabelsym.create('$raiseaddr'));
addstatement(statements,current_addr);
third:=caddrnode.create(cloadnode.create(current_addr.labsym,current_addr.labsym.owner));
right:=caddrnode.create(cloadnode.create(current_addr.labsym,current_addr.labsym.owner));
end;
raisenode:=ccallnode.createintern('fpc_raiseexception',