瀏覽代碼

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

git-svn-id: trunk@32421 -
Jonas Maebe 9 年之前
父節點
當前提交
118f3c8049
共有 1 個文件被更改,包括 2 次插入2 次删除
  1. 2 2
      compiler/ncgflw.pas

+ 2 - 2
compiler/ncgflw.pas

@@ -1249,8 +1249,8 @@ implementation
          if assigned(exceptvarsym) then
            begin
              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;
 
          { in the case that another exception is risen