Explorar el Código

* compilation fixes

git-svn-id: branches/debug_eh@41290 -
florian hace 6 años
padre
commit
6b0c2a45f5
Se han modificado 2 ficheros con 8 adiciones y 1 borrados
  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
             typeindex:=current_procinfo.CurrentAction.AddAction(excepttype);
             current_asmdata.getjumplabel(catchstartlab);
+{$ifdef i386}
             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_label(list,catchstartlab);
           end

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

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