Jelajahi Sumber

* test fixed

git-svn-id: trunk@44075 -
florian 5 tahun lalu
induk
melakukan
8f707903df
1 mengubah file dengan 1 tambahan dan 1 penghapusan
  1. 1 1
      tests/test/tcustomattr13.pp

+ 1 - 1
tests/test/tcustomattr13.pp

@@ -104,7 +104,7 @@ begin
   if ss <> StrHelloWorld then
     Halt(25);
 {$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
-  aStrm.Position := Align(PtrUInt(aStrm.Position), PtrInt(@TAlignDummy(nil^).s)));
+  aStrm.Position := Align(PtrUInt(aStrm.Position), PtrInt(@TAlignDummy(nil^).s));
 {$endif}
   if aStrm.Read(s, SizeOf(Single)) <> SizeOf(Single) then
     Halt(26);