From ab39e6f7d80b3cecf9072ab079f24f863a9547fe Mon Sep 17 00:00:00 2001 From: florian Date: Sun, 28 Apr 2013 16:34:28 +0000 Subject: [PATCH] * fix parameter order for compilerproc created by raise nodes git-svn-id: trunk@24357 - --- compiler/nflw.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/nflw.pas b/compiler/nflw.pas index 613918ea07..1ae2708f38 100644 --- a/compiler/nflw.pas +++ b/compiler/nflw.pas @@ -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',