paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-18 05:39:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* delphi mode uses register calling by default for assembler

Browse Source
This commit is contained in:
peter 2003-10-02 21:15:59 +00:00
parent 939b642144
commit 13101d50e8
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/pstatmnt.pas
View File

@ -1074,10 +1074,17 @@ implementation
p:=_asm_statement;
{ assembler routines use stdcall instead of register }
{$warning Temporary hack for force stdcall for assembler}
if (po_assembler in current_procinfo.procdef.procoptions) and
(current_procinfo.procdef.proccalloption=pocall_register) then
current_procinfo.procdef.proccalloption:=pocall_stdcall;
{ delphi uses register calling for assembler methods }
if (m_delphi in aktmodeswitches) and
(po_assembler in current_procinfo.procdef.procoptions) and
not(po_hascallingconvention in current_procinfo.procdef.procoptions) then
current_procinfo.procdef.proccalloption:=pocall_register;
{$ifndef sparc}
if (po_assembler in current_procinfo.procdef.procoptions) then
begin
@ -1122,7 +1129,10 @@ implementation
end.
{
$Log$
Revision 1.111 2003-10-01 20:34:49 peter
Revision 1.112 2003-10-02 21:15:59 peter
* delphi mode uses register calling by default for assembler
Revision 1.111 2003/10/01 20:34:49 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose