paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 02:59:13 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ extended test with many more reference syntaxes, accepted by TP7

Browse Source 
git-svn-id: trunk@32190 -
This commit is contained in:
nickysn 2015-10-29 15:48:18 +00:00
parent 823deb39ac
commit 500743c65d
1 changed files with 36 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
tests/test/cpu16/i8086/tlbldat1.pp
View File

@ -8,17 +8,44 @@ program tlbldat1;
label label
lbl; lbl;
var var
a, a2, b, b2: Word; a, a_, a__,
a2, a2_, a2__, a2___, a2____,
b, b_, b__,
b2, b2_, b2__, b2___, b2____: Word;
begin begin
asm asm
mov ax, word ptr [lbl] mov ax, word [lbl]
mov a, ax mov a, ax
mov ax, word ptr [lbl + 2] mov ax, word ptr [lbl]
mov a_, ax
mov ax, word ptr lbl
mov a__, ax
mov ax, word [lbl + 2]
mov a2, ax mov a2, ax
mov ax, word ptr [@@loc_lbl] mov ax, word ptr [lbl + 2]
mov a2_, ax
mov ax, word ptr lbl + 2
mov a2__, ax
mov ax, word [2 + lbl]
mov a2___, ax
mov ax, word ptr [2 + lbl]
mov a2____, ax
mov ax, word [@@loc_lbl]
mov b, ax mov b, ax
mov ax, word ptr [@@loc_lbl + 2] mov ax, word ptr [@@loc_lbl]
mov b_, ax
mov ax, word ptr @@loc_lbl
mov b__, ax
mov ax, word [@@loc_lbl + 2]
mov b2, ax mov b2, ax
mov ax, word ptr [@@loc_lbl + 2]
mov b2_, ax
mov ax, word ptr @@loc_lbl + 2
mov b2__, ax
mov ax, word [2 + @@loc_lbl]
mov b2___, ax
mov ax, word ptr [2 + @@loc_lbl]
mov b2____, ax
jmp @@GoOn jmp @@GoOn
lbl: lbl:
dw $1234 dw $1234
@ -28,7 +55,10 @@ lbl:
dw $8765 dw $8765
@@GoOn: @@GoOn:
end; end;
if (a=$1234) and (a2=$4321) and (b=$5678) and (b2=$8765) then if (a=$1234) and (a_=$1234) and (a__=$1234) and
(a2=$4321) and (a2_=$4321) and (a2__=$4321) and (a2___=$4321) and (a2____=$4321) and
(b=$5678) and (b_=$5678) and (b__=$5678) and
(b2=$8765) and (b2_=$8765) and (b2__=$8765) and (b2___=$8765) and (b2____=$8765) then
Writeln('Ok!') Writeln('Ok!')
else else
begin begin