mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 12:03:45 +02:00
12 lines
330 B
ObjectPascal
12 lines
330 B
ObjectPascal
{ $OPT= -Rintel }
|
|
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. }
|
|
|