paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 17:06:14 +02:00
Code Issues Packages Projects Releases Wiki Activity

* unified the definition of pushleftright_pocalls on i8086 and i386

Browse Source 
git-svn-id: trunk@38952 -
This commit is contained in:
nickysn 2018-05-08 14:27:36 +00:00
parent 1c1cd43178
commit 02fb59d3e5
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symconst.pas
View File

@ -807,14 +807,8 @@ inherited_objectoptions : tobjectoptions = [oo_has_virtual,oo_has_private,oo_has
oo_can_have_published]; oo_can_have_published];
{$endif not jvm} {$endif not jvm}
{$ifdef i386} {$if defined(i8086) or defined(i386)}
{ we only take this into account on i386, on other platforms we always { we only take this into account on i8086 and i386, on other platforms we always
push in the same order
}
pushleftright_pocalls : tproccalloptions = [pocall_register,pocall_pascal];
{$endif}
{$ifdef i8086}
{ we only take this into account on i386, on other platforms we always
push in the same order push in the same order
} }
pushleftright_pocalls : tproccalloptions = [pocall_register,pocall_pascal]; pushleftright_pocalls : tproccalloptions = [pocall_register,pocall_pascal];