mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 18:10:29 +02:00
a29f968b3b
* forbid that parameters are subscribed in assembler, if they are references and take more than one register + test git-svn-id: trunk@38125 -
26 lines
295 B
ObjectPascal
26 lines
295 B
ObjectPascal
{ %cpu=avr }
|
|
{ %fail }
|
|
program test;
|
|
|
|
type
|
|
TUintRecord = packed record
|
|
l:byte;
|
|
h:byte;
|
|
end;
|
|
|
|
procedure delayloop2(const counter: TUintRecord); assembler;
|
|
asm
|
|
mov XH, counter.h
|
|
mov XL, counter.l
|
|
end;
|
|
|
|
|
|
var
|
|
t: TUintRecord;
|
|
|
|
begin
|
|
t.l := 1;
|
|
t.h := 0;
|
|
delayloop2(t);
|
|
end.
|