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

+ added qword/tbyte ptr to tasm27a.pp - these are also supported by delphi

Browse Source 
git-svn-id: trunk@39145 -
This commit is contained in:
nickysn 2018-05-29 16:48:49 +00:00
parent d39699da94
commit 6ee483279c
1 changed files with 37 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
tests/test/tasm27a.pp
View File

@ -23,7 +23,7 @@ var
Rec: TRec;
const
x_size = 4*8*4+1;
x_size = 6*8*4+1;
procedure x; assembler;
asm
dd Rec.Str { dd Rec.Str }
@ -61,6 +61,24 @@ asm
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;
procedure x_verify; assembler;
asm
@ -99,6 +117,24 @@ asm
dd 12 { dd dword ptr 5+[7] }
dd -2 { dd dword ptr 5-[7] }
dd 5 { dd dword ptr [5] }
dd Rec.Str { dd qword ptr Rec.Str }
dd Rec.Str { dd qword ptr Rec.Str[0] }
dd Rec.Arr { dd qword ptr Rec.Arr }
dd Rec.Arr+2 { dd qword ptr Rec.Arr[2] }
dd 12 { dd qword ptr 5[7] }
dd 12 { dd qword ptr 5+[7] }
dd -2 { dd qword ptr 5-[7] }
dd 5 { dd qword ptr [5] }
dd Rec.Str { dd tbyte ptr Rec.Str }
dd Rec.Str { dd tbyte ptr Rec.Str[0] }
dd Rec.Arr { dd tbyte ptr Rec.Arr }
dd Rec.Arr+2 { dd tbyte ptr Rec.Arr[2] }
dd 12 { dd tbyte ptr 5[7] }
dd 12 { dd tbyte ptr 5+[7] }
dd -2 { dd tbyte ptr 5-[7] }
dd 5 { dd tbyte ptr [5] }
end;
function CompareCode(cp, cp2: CodePointer; sz: Integer): Boolean;