Просмотр исходного кода

* test fixed

git-svn-id: trunk@44075 -
florian 5 лет назад
Родитель
Сommit
8f707903df
1 измененных файлов с 1 добавлено и 1 удалено
  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);