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

+ added dword/qword/tbyte ptr to the tasm27.pp test (these are also supported by TP7)

Browse Source 
git-svn-id: trunk@39144 -
This commit is contained in:
nickysn 2018-05-29 16:46:22 +00:00
parent 49b414ffee
commit d39699da94
1 changed files with 27 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
tests/test/tasm27.pp
View File

@ -42,6 +42,33 @@ asm
dd word ptr 5+[7] { dd 12 }
dd word ptr 5-[7] { dd -2 }
dd word ptr [5] { dd 5 }
dd dword ptr Rec.Str { dd Rec.Str }
dd dword ptr Rec.Str[0] { dd Rec.Str }
dd dword ptr Rec.Arr { dd Rec.Arr }
dd dword ptr Rec.Arr[2] { dd Rec.Arr+2 }
dd dword ptr 5[7] { dd 12 }
dd dword ptr 5+[7] { dd 12 }
dd dword ptr 5-[7] { dd -2 }
dd dword ptr [5] { dd 5 }
dd qword ptr Rec.Str { dd Rec.Str }
dd qword ptr Rec.Str[0] { dd Rec.Str }
dd qword ptr Rec.Arr { dd Rec.Arr }
dd qword ptr Rec.Arr[2] { dd Rec.Arr+2 }
dd qword ptr 5[7] { dd 12 }
dd qword ptr 5+[7] { dd 12 }
dd qword ptr 5-[7] { dd -2 }
dd qword ptr [5] { dd 5 }
dd tbyte ptr Rec.Str { dd Rec.Str }
dd tbyte ptr Rec.Str[0] { dd Rec.Str }
dd tbyte ptr Rec.Arr { dd Rec.Arr }
dd tbyte ptr Rec.Arr[2] { dd Rec.Arr+2 }
dd tbyte ptr 5[7] { dd 12 }
dd tbyte ptr 5+[7] { dd 12 }
dd tbyte ptr 5-[7] { dd -2 }
dd tbyte ptr [5] { dd 5 }
end;
begin