|
@@ -73,7 +73,11 @@ type
|
|
|
|
|
|
|
|
tprocedure = procedure;
|
|
tprocedure = procedure;
|
|
|
|
|
|
|
|
- tsmallrecord = packed record
|
|
|
|
|
|
|
+ tsmallrecord =
|
|
|
|
|
+{$ifndef FPC_REQUIRES_PROPER_ALIGNMENT}
|
|
|
|
|
+ packed
|
|
|
|
|
+{$endif FPC_REQUIRES_PROPER_ALIGNMENT}
|
|
|
|
|
+ record
|
|
|
b: byte;
|
|
b: byte;
|
|
|
w: word;
|
|
w: word;
|
|
|
end;
|
|
end;
|
|
@@ -845,7 +849,10 @@ end.
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$Log$
|
|
|
- Revision 1.6 2004-03-27 19:18:01 florian
|
|
|
|
|
|
|
+ Revision 1.7 2004-03-27 19:20:41 florian
|
|
|
|
|
+ * alignment fixed
|
|
|
|
|
+
|
|
|
|
|
+ Revision 1.6 2004/03/27 19:18:01 florian
|
|
|
*** empty log message ***
|
|
*** empty log message ***
|
|
|
|
|
|
|
|
Revision 1.5 2003/04/22 10:24:29 florian
|
|
Revision 1.5 2003/04/22 10:24:29 florian
|
florian