Browse Source

* fixed type of stored exception class instance in on-node

git-svn-id: trunk@32421 -
Jonas Maebe 9 years ago
parent
commit
118f3c8049
1 changed files with 2 additions and 2 deletions
  1. 2 2
      compiler/ncgflw.pas

+ 2 - 2
compiler/ncgflw.pas

@@ -1249,8 +1249,8 @@ implementation
          if assigned(exceptvarsym) then
          if assigned(exceptvarsym) then
            begin
            begin
              location_reset_ref(exceptvarsym.localloc,LOC_REFERENCE,def_cgsize(voidpointertype),voidpointertype.alignment);
              location_reset_ref(exceptvarsym.localloc,LOC_REFERENCE,def_cgsize(voidpointertype),voidpointertype.alignment);
-             tg.GetLocal(current_asmdata.CurrAsmList,voidpointertype.size,voidpointertype,exceptvarsym.localloc.reference);
-             hlcg.a_load_reg_ref(current_asmdata.CurrAsmList,fpc_catches_res.def,voidpointertype,fpc_catches_resloc.register,exceptvarsym.localloc.reference);
+             tg.GetLocal(current_asmdata.CurrAsmList,exceptvarsym.vardef.size,exceptvarsym.vardef,exceptvarsym.localloc.reference);
+             hlcg.a_load_reg_ref(current_asmdata.CurrAsmList,fpc_catches_res.def,exceptvarsym.vardef,fpc_catches_resloc.register,exceptvarsym.localloc.reference);
            end;
            end;
 
 
          { in the case that another exception is risen
          { in the case that another exception is risen