paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 18:49:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

* only i386 uses same special fastcall calling convention

Browse Source
This commit is contained in:
florian 2022-11-06 22:48:18 +01:00
parent 9c8f362acc
commit 36afcbf7fe
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/dbgdwarf.pas
View File

@ -1930,8 +1930,12 @@ implementation
function dwarf_calling_convention(def: tprocdef): Tdwarf_calling_convention; function dwarf_calling_convention(def: tprocdef): Tdwarf_calling_convention;
begin begin
case def.proccalloption of case def.proccalloption of
{$ifdef i386}
pocall_register: pocall_register:
result:=DW_CC_GNU_borland_fastcall_i386; result:=DW_CC_GNU_borland_fastcall_i386;
{$else i386}
pocall_register,
{$endif i386}
pocall_cdecl, pocall_cdecl,
pocall_stdcall, pocall_stdcall,
pocall_cppdecl, pocall_cppdecl,