diff --git a/tests/test/testpusw.pp b/tests/test/testpusw.pp index 1f8634391e..7421477ea1 100644 --- a/tests/test/testpusw.pp +++ b/tests/test/testpusw.pp @@ -1,3 +1,4 @@ +{$R-} program test_register_pushing; var @@ -60,6 +61,14 @@ begin Writeln('Compiler does not push "pushl %gs" into 4 bytes'); haserror:=true; 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} if haserror then Halt(1);