فهرست منبع

* compilation fixes

git-svn-id: branches/debug_eh@41290 -
florian 6 سال پیش
والد
کامیت
6b0c2a45f5
2فایلهای تغییر یافته به همراه8 افزوده شده و 1 حذف شده
  1. 5 0
      compiler/ncgflw.pas
  2. 3 1
      compiler/utils/ppuutils/ppudump.pp

+ 5 - 0
compiler/ncgflw.pas

@@ -356,7 +356,12 @@ implementation
           begin
           begin
             typeindex:=current_procinfo.CurrentAction.AddAction(excepttype);
             typeindex:=current_procinfo.CurrentAction.AddAction(excepttype);
             current_asmdata.getjumplabel(catchstartlab);
             current_asmdata.getjumplabel(catchstartlab);
+{$ifdef i386}
             hlcg.a_cmp_const_reg_label (list,osuinttype,OC_EQ,typeindex+1,NR_FUNCTION_RESULT64_HIGH_REG,catchstartlab);
             hlcg.a_cmp_const_reg_label (list,osuinttype,OC_EQ,typeindex+1,NR_FUNCTION_RESULT64_HIGH_REG,catchstartlab);
+{$else i386}
+            { we need to find a way to fix this in a generic way }
+            Internalerror(2019021008);
+{$endif i386}
             hlcg.a_jmp_always(list,nextonlabel);
             hlcg.a_jmp_always(list,nextonlabel);
             hlcg.a_label(list,catchstartlab);
             hlcg.a_label(list,catchstartlab);
           end
           end

+ 3 - 1
compiler/utils/ppuutils/ppudump.pp

@@ -1357,7 +1357,9 @@ const
          (mask:pi_has_open_array_parameter;
          (mask:pi_has_open_array_parameter;
          str:' has open array parameter '),
          str:' has open array parameter '),
          (mask:pi_uses_threadvar;
          (mask:pi_uses_threadvar;
-         str:' uses threadvars ')
+         str:' uses threadvars '),
+         (mask:pi_has_except_table_data;
+         str:' has except table data ')
   );
   );
 var
 var
   procinfooptions : tprocinfoflags;
   procinfooptions : tprocinfoflags;