mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-08 09:28:19 +02:00
40 lines
670 B
ObjectPascal
40 lines
670 B
ObjectPascal
{ %cpu=arm }
|
|
{ %norun }
|
|
|
|
TYPE
|
|
ttest = record
|
|
a : shortstring;
|
|
b : dword;
|
|
end;
|
|
VAR
|
|
q : ttest;
|
|
begin
|
|
asm
|
|
ldr r0,[r1,r2,lsl #3]
|
|
ldr r0,[r1]
|
|
ldr r0,[r1, r2]
|
|
ldr r0,[r1, -r2]
|
|
ldr r0,[r1, r2, lsl #23]
|
|
ldr r0,[r1, -r2, lsl #23]
|
|
ldr r0,[r1, #4095]
|
|
ldr r0,[r1, #-4095]
|
|
ldr r0,[r1, r2]!
|
|
ldr r0,[r1, -r2]!
|
|
ldr r0,[r1, r2, lsl #23]!
|
|
ldr r0,[r1, -r2, lsl #23]!
|
|
ldr r0,[r1, #4095]!
|
|
ldr r0,[r1, #-4095]!
|
|
ldr r0,[r1], r2
|
|
ldr r0,[r1], -r2
|
|
ldr r0,[r1], r2, lsl #23
|
|
ldr r0,[r1], -r2, lsl #23
|
|
ldr r0,[r1], #4095
|
|
ldr r0,[r1], #-4095
|
|
|
|
ldr r0,[r1,q.b]
|
|
|
|
.Ltest:
|
|
ldr r0,[.Ltest]
|
|
end;
|
|
end.
|