mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 22:27:57 +02:00
b9e41330d4
or parameter in RAUtils.TOperand.SetupVar(). This fixes a compiler crash, when a parent parameter or local var is accessed (in certain ways) inside a nested inline asm routine. git-svn-id: trunk@38236 -
22 lines
236 B
ObjectPascal
22 lines
236 B
ObjectPascal
{ %NORUN }
|
|
{ %CPU=i8086 }
|
|
|
|
{$IFDEF FPC}
|
|
{$MODE TP}
|
|
{$ENDIF}
|
|
program tasm19;
|
|
|
|
procedure subpcrash(x: word);
|
|
|
|
procedure subtocrash; assembler;
|
|
asm
|
|
{ compiler crash here... }
|
|
mov ax,[si+offset x]
|
|
end;
|
|
|
|
begin
|
|
end;
|
|
|
|
begin
|
|
end.
|