paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:09:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compilation fixes

Browse Source 
git-svn-id: branches/debug_eh@41290 -
This commit is contained in:
florian 2019-02-10 19:33:14 +00:00
parent 65aebd22b0
commit 6b0c2a45f5
2 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/ncgflw.pas
View File

@ -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

4
compiler/utils/ppuutils/ppudump.pp
View File

@ -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;