Browse Source

Fix cycling.

hlcgobj.pas, thlcgobj:
  * g_finalize: initalize the correct tcgpara variable; avoids nasty heap corruption...

git-svn-id: branches/svenbarth/arc@28909 -
svenbarth 10 years ago
parent
commit
8c6d22bf18
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/hlcgobj.pas

+ 1 - 1
compiler/hlcgobj.pas

@@ -3234,7 +3234,7 @@ implementation
         end;
         end;
       pd:=search_system_proc(decrfunc);
       pd:=search_system_proc(decrfunc);
       cgpara1.init;
       cgpara1.init;
-      cgpara1.init;
+      cgpara2.init;
       paramanager.getintparaloc(pd,1,cgpara1);
       paramanager.getintparaloc(pd,1,cgpara1);
       a_loadaddr_ref_cgpara(list,t,ref,cgpara1);
       a_loadaddr_ref_cgpara(list,t,ref,cgpara1);
       paramanager.freecgpara(list,cgpara1);
       paramanager.freecgpara(list,cgpara1);