浏览代码

* test fixed

git-svn-id: trunk@44075 -
florian 5 年之前
父节点
当前提交
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);