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

* x86-64: sign/zero extend arguments only if it is an external call as

Browse Source 
FPC generated code follows the ABI
This commit is contained in:
florian 2021-08-23 00:20:48 +02:00
parent ef31e8c2ed
commit bab7dcece1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86_64/cpupara.pas
View File

@ -57,7 +57,7 @@ unit cpupara;
systems, systems,
globals,defutil, globals,defutil,
symtable,symutil, symtable,symutil,
cpupi, procinfo,cpupi,
cgx86,cgobj,cgcpu; cgx86,cgobj,cgcpu;
const const
@ -1809,12 +1809,15 @@ unit cpupara;
be compatible with the system compiler clang be compatible with the system compiler clang
(which extends on the caller side). (which extends on the caller side).
Exception: if the call is not external, then we can follow the ABI as FPC
generated code follows the ABI
Not for LLVM, since there the zero/signext Not for LLVM, since there the zero/signext
attributes by definition only apply to the attributes by definition only apply to the
caller side } caller side }
{$ifndef LLVM} {$ifndef LLVM}
if not(target_info.system in systems_darwin) and if not(target_info.system in systems_darwin) and
(side=calleeside) and ((side=calleeside) or (([po_weakexternal,po_external]*p.procoptions)=[])) and
(hp.paraloc[side].intsize in [1,2]) then (hp.paraloc[side].intsize in [1,2]) then
begin begin
paraloc^.def:=hp.paraloc[side].def paraloc^.def:=hp.paraloc[side].def