|
@@ -104,7 +104,7 @@ begin
|
|
if ss <> StrHelloWorld then
|
|
if ss <> StrHelloWorld then
|
|
Halt(25);
|
|
Halt(25);
|
|
{$ifdef FPC_REQUIRES_PROPER_ALIGNMENT}
|
|
{$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}
|
|
{$endif}
|
|
if aStrm.Read(s, SizeOf(Single)) <> SizeOf(Single) then
|
|
if aStrm.Read(s, SizeOf(Single)) <> SizeOf(Single) then
|
|
Halt(26);
|
|
Halt(26);
|