paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 22:49:17 +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 case calloption of
pocall_internproc : pocall_internproc :
result:=[]; 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_inline,
pocall_compilerproc,
pocall_register, pocall_register,
pocall_safecall, pocall_safecall,
pocall_stdcall, pocall_stdcall,
@ -243,7 +249,10 @@ begin
end. end.
{ {
$Log$ $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 * preparations for different default calling conventions
* various RA fixes * various RA fixes