mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 04:47:57 +02:00
11 lines
312 B
ObjectPascal
11 lines
312 B
ObjectPascal
Program SomeCrash;
|
|
{ with pp -TDOS -Rintel bug0042.pp }
|
|
{ I'll try to fix this for next release -- Carl }
|
|
|
|
Begin
|
|
asm
|
|
mov ax,3*-4 { evaluator stack underflow }
|
|
end; { due to two operators following each other }
|
|
end. { this will also happen in att syntax. }
|
|
|