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

+ 64 bit support

Browse Source 
git-svn-id: branches/debug_eh@41564 -
This commit is contained in:
florian 2019-03-02 23:04:13 +00:00
parent 367bc18bc5
commit 357dd02da3
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/psabiehpi.pas
View File

@ -441,7 +441,13 @@ implementation
if typefilterlist.count>0 then
begin
{$if defined(CPU64BITADDR)}
gcc_except_table_data.concat(tai_const.create_8bit(DW_EH_PE_udata8));
{$elseif defined(CPU32BITADDR)}
gcc_except_table_data.concat(tai_const.create_8bit(DW_EH_PE_udata4));
{$elseif defined(CPU16BITADDR}
gcc_except_table_data.concat(tai_const.create_8bit(DW_EH_PE_udata2));
{$endif}
current_asmdata.getlabel(typefilterlistlabel,alt_data);
current_asmdata.getlabel(typefilterlistlabelref,alt_data);
gcc_except_table_data.concat(tai_const.create_rel_sym(aitconst_uleb128bit,typefilterlistlabel,typefilterlistlabelref));
@ -479,7 +485,7 @@ implementation
if assigned(typefilterlist[i]) then
gcc_except_table_data.concat(tai_const.Create_sym(current_asmdata.RefAsmSymbol(tobjectdef(typefilterlist[i]).vmt_mangledname, AT_DATA)))
else
gcc_except_table_data.concat(tai_const.Create_32bit(0));
gcc_except_table_data.concat(tai_const.Create_sym(nil));
end;
{ the types are resolved by the negative offset, so the label must be written after all types }
gcc_except_table_data.concat(tai_label.create(typefilterlistlabelref));
@ -721,7 +727,7 @@ implementation
{$if defined(i386)}
hlcg.a_cmp_const_reg_label (list,osuinttype,OC_EQ,typeindex+1,NR_FUNCTION_RESULT64_HIGH_REG,catchstartlab);
{$elseif defined(x86_64)}
hlcg.a_cmp_const_reg_label (list,osuinttype,OC_EQ,typeindex+1,NR_RDX,catchstartlab);
hlcg.a_cmp_const_reg_label (list,s32inttype,OC_EQ,typeindex+1,NR_EDX,catchstartlab);
{$else}
{ we need to find a way to fix this in a generic way }
Internalerror(2019021008);