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

git-svn-id: trunk@39145 -

tests/test/tasm27a.pp

@@ -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;