+ added test tasm27a.pp - similar to tasm27.pp, but for i386 and checked against Delphi

git-svn-id: trunk@39133 -

.gitattributes

@@ -12592,6 +12592,7 @@ tests/test/tasm25ss2.pp svneol=native#text/plain
 tests/test/tasm25ss3.pp svneol=native#text/plain
 tests/test/tasm26.pp svneol=native#text/plain
 tests/test/tasm27.pp svneol=native#text/plain
+tests/test/tasm27a.pp svneol=native#text/plain
 tests/test/tasm2a.pp svneol=native#text/plain
 tests/test/tasm3.pp svneol=native#text/plain
 tests/test/tasm4.pp svneol=native#text/plain

tests/test/tasm27a.pp

@@ -0,0 +1,92 @@
+{ %CPU=i386 }
+
+{$IFDEF FPC}
+{$MODE DELPHI}
+{$PIC OFF}
+{$ELSE}
+{$APPTYPE CONSOLE}
+{$ENDIF}
+program tasm27a;
+
+{$S-}
+
+type
+{$IFNDEF FPC}
+  CodePointer = Pointer;
+{$ENDIF}
+  TRec = record
+    Str: String[8];
+    Arr: array [-5..10] of SmallInt;
+  end;
+
+var
+  Rec: TRec;
+
+const
+  x_size = 8*4+1;
+procedure x; assembler;
+asm
+  dd Rec.Str                    { dd Rec.Str }
+  dd Rec.Str[0]                 { dd Rec.Str }
+  dd Rec.Arr                    { dd Rec.Arr }
+  dd Rec.Arr[2]                 { dd Rec.Arr+2 }
+  dd 5[7]                       { dd 12 }
+  dd 5+[7]                      { dd 12 }
+  dd 5-[7]                      { dd -2 }
+  dd [5]                        { dd 5 }
+end;
+procedure x_verify; assembler;
+asm
+  dd Rec.Str                    { dd Rec.Str }
+  dd Rec.Str                    { dd Rec.Str[0] }
+  dd Rec.Arr                    { dd Rec.Arr }
+  dd Rec.Arr+2                  { dd Rec.Arr[2] }
+  dd 12                         { dd 5[7] }
+  dd 12                         { dd 5+[7] }
+  dd -2                         { dd 5-[7] }
+  dd 5                          { dd [5] }
+end;
+
+function CompareCode(cp, cp2: CodePointer; sz: Integer): Boolean;
+var
+  I: Integer;
+  lastbyte: Byte;
+begin
+{$IFDEF FPC}
+  if CompareByte(cp^, cp2^, sz) <> 0 then
+  begin
+    CompareCode := False;
+    exit;
+  end;
+{$ELSE}
+  for I := 0 to sz - 1 do
+    if PChar(cp)[I] <> PChar(cp2)[I] then
+    begin
+      CompareCode := False;
+      exit;
+    end;
+{$ENDIF}
+  { check also that the last byte is a retn instruction }
+  { size differs at least between linux and windows, so leave the ret check away
+  lastbyte:=PByte(cp)[sz-1];
+  if lastbyte<>$C3 then
+  begin
+    CompareCode := False;
+    exit;
+  end;
+  }
+  CompareCode := True;
+end;
+
+procedure Error(N: Integer);
+begin
+  Writeln('Error! ', N);
+  Halt(1);
+end;
+
+begin
+  if not CompareCode(CodePointer(@x), CodePointer(@x_verify), x_size) then
+    Error(1);
+
+  Writeln('Ok!');
+end.