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

+ added Intel check

Browse Source
This commit is contained in:
pierre 2000-05-23 20:37:46 +00:00
parent 8900400a2c
commit 077c5e97aa
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/test/testpusw.pp
View File

@ -1,3 +1,4 @@
{$R-}
program test_register_pushing; program test_register_pushing;
var var
@ -60,6 +61,14 @@ begin
Writeln('Compiler does not push "pushl %gs" into 4 bytes'); Writeln('Compiler does not push "pushl %gs" into 4 bytes');
haserror:=true; haserror:=true;
end; end;
{$asmmode intel}
asm
mov before,esp
push es
mov after,esp
pop es
end;
Writeln('Intel "push es" uses ',before-after,' bytes');
{$endif CPUI386} {$endif CPUI386}
if haserror then if haserror then
Halt(1); Halt(1);