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