paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 07:28:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix TCluster.Get/SetData on big endian machines

Browse Source
This commit is contained in:
pierre 2002-10-17 13:27:53 +00:00
parent b52db11151
commit 843a6d9306
2 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fv/dialogs.pas
View File

@ -2305,7 +2305,7 @@ END;
{---------------------------------------------------------------------------}
PROCEDURE TCluster.GetData (Var Rec);
BEGIN
Word(Rec) := Value; { Return current value }
sw_Word(Rec) := Value; { Return current value }
END;
{--TCluster-----------------------------------------------------------------}
@ -2313,7 +2313,7 @@ END;
{---------------------------------------------------------------------------}
PROCEDURE TCluster.SetData (Var Rec);
BEGIN
Value := Word(Rec); { Set current value }
Value :=sw_Word(Rec); { Set current value }
SetDrawMask(vdFocus OR vdInner); { Set redraw mask }
DrawView; { Redraw masked areas }
END;
@ -4225,7 +4225,10 @@ END;
END.
{
$Log$
Revision 1.21 2002-10-17 11:24:16 pierre
Revision 1.22 2002-10-17 13:27:53 pierre
* fix TCluster.Get/SetData on big endian machines
Revision 1.21 2002/10/17 11:24:16 pierre
* Clean up the Load/Store routines so they are endian independent
Revision 1.20 2002/09/22 19:42:23 hajny

9
fvision/dialogs.pas
View File

@ -2305,7 +2305,7 @@ END;
{---------------------------------------------------------------------------}
PROCEDURE TCluster.GetData (Var Rec);
BEGIN
Word(Rec) := Value; { Return current value }
sw_Word(Rec) := Value; { Return current value }
END;
{--TCluster-----------------------------------------------------------------}
@ -2313,7 +2313,7 @@ END;
{---------------------------------------------------------------------------}
PROCEDURE TCluster.SetData (Var Rec);
BEGIN
Value := Word(Rec); { Set current value }
Value :=sw_Word(Rec); { Set current value }
SetDrawMask(vdFocus OR vdInner); { Set redraw mask }
DrawView; { Redraw masked areas }
END;
@ -4225,7 +4225,10 @@ END;
END.
{
$Log$
Revision 1.21 2002-10-17 11:24:16 pierre
Revision 1.22 2002-10-17 13:27:53 pierre
* fix TCluster.Get/SetData on big endian machines
Revision 1.21 2002/10/17 11:24:16 pierre
* Clean up the Load/Store routines so they are endian independent
Revision 1.20 2002/09/22 19:42:23 hajny