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

* fix compilerproc for default=oldfpccall

Browse Source
This commit is contained in:
peter 2003-09-08 18:28:51 +00:00
parent 0e10e98fae
commit 64bc322e0e
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/i386/cpupara.pas
View File

@ -123,8 +123,14 @@ unit cpupara;
case calloption of
pocall_internproc :
result:=[];
pocall_compilerproc :
begin
if pocall_default=pocall_oldfpccall then
result:=[RS_EAX,RS_EDX,RS_ECX,RS_ESI,RS_EDI,RS_EBX]
else
result:=[RS_EAX,RS_EDX,RS_ECX];
end;
pocall_inline,
pocall_compilerproc,
pocall_register,
pocall_safecall,
pocall_stdcall,
@ -243,7 +249,10 @@ begin
end.
{
$Log$
Revision 1.24 2003-09-07 22:09:35 peter
Revision 1.25 2003-09-08 18:28:51 peter
* fix compilerproc for default=oldfpccall
Revision 1.24 2003/09/07 22:09:35 peter
* preparations for different default calling conventions
* various RA fixes