Browse Source

amunits: even more PACKRECORDS 2 madness

git-svn-id: trunk@28558 -
Károly Balogh 11 years ago
parent
commit
3a256424f7

+ 1 - 1
packages/amunits/src/coreunits/amigados.pas

@@ -205,7 +205,7 @@ Type
         id_InUse                : Longint;      { Flag, zero if not in use }
         id_InUse                : Longint;      { Flag, zero if not in use }
     end;
     end;
 
 
-{$PACKRECORDS NORMAL}
+{$PACKRECORDS 2}
 
 
 Const
 Const
 
 

+ 1 - 0
packages/amunits/src/coreunits/datatypes.pas

@@ -45,6 +45,7 @@
 
 
     [email protected]
     [email protected]
 }
 }
+{$PACKRECORDS 2}
 
 
 {$I useamigasmartlink.inc}
 {$I useamigasmartlink.inc}
 {$ifdef use_amiga_smartlink}
 {$ifdef use_amiga_smartlink}

+ 1 - 0
packages/amunits/src/coreunits/hardware.pas

@@ -18,6 +18,7 @@
     registers and bits in the Complex Interface Adapter (CIA) chip
     registers and bits in the Complex Interface Adapter (CIA) chip
 }
 }
 
 
+{$PACKRECORDS 2}
 unit hardware;
 unit hardware;
 
 
 INTERFACE
 INTERFACE

+ 1 - 1
packages/amunits/src/coreunits/inputevent.pas

@@ -13,7 +13,7 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
 
  **********************************************************************}
  **********************************************************************}
-
+{$PACKRECORDS 2}
 unit inputevent;
 unit inputevent;
 
 
 INTERFACE
 INTERFACE

+ 1 - 1
packages/amunits/src/coreunits/keymap.pas

@@ -32,7 +32,7 @@
 
 
     [email protected] Nils Sjoholm
     [email protected] Nils Sjoholm
 }
 }
-
+{$PACKRECORDS 2}
 {$I useamigasmartlink.inc}
 {$I useamigasmartlink.inc}
 {$ifdef use_amiga_smartlink}
 {$ifdef use_amiga_smartlink}
    {$smartlink on}
    {$smartlink on}

+ 1 - 1
packages/amunits/src/coreunits/layers.pas

@@ -31,7 +31,7 @@
 
 
     [email protected]
     [email protected]
 }
 }
-
+{$PACKRECORDS 2}
 {$I useamigasmartlink.inc}
 {$I useamigasmartlink.inc}
 {$ifdef use_amiga_smartlink}
 {$ifdef use_amiga_smartlink}
    {$smartlink on}
    {$smartlink on}

+ 1 - 0
packages/amunits/src/otherlibs/ahi.pas

@@ -27,6 +27,7 @@
 
 
   [email protected] Nils Sjoholm
   [email protected] Nils Sjoholm
 }
 }
+{$PACKRECORDS 2}
 
 
 {$mode objfpc}
 {$mode objfpc}
 {$I useamigasmartlink.inc}
 {$I useamigasmartlink.inc}

+ 1 - 0
packages/amunits/src/otherlibs/ahi_sub.pas

@@ -28,6 +28,7 @@
 
 
   [email protected] Nils Sjoholm
   [email protected] Nils Sjoholm
 }
 }
+{$PACKRECORDS 2}
 
 
 {$I useamigasmartlink.inc}
 {$I useamigasmartlink.inc}
 {$ifdef use_amiga_smartlink}
 {$ifdef use_amiga_smartlink}

+ 1 - 1
packages/amunits/src/utilunits/amigautils.pas

@@ -78,7 +78,7 @@ Type
         fib_Reserved     : Array [0..31] of Char;
         fib_Reserved     : Array [0..31] of Char;
     end;
     end;
 
 
-{$PACKRECORDS NORMAL}
+{$PACKRECORDS 2}
 
 
 FUNCTION Examine(lock : LONGINT; fileInfoBlock : pFileInfoBlock) : BOOLEAN;
 FUNCTION Examine(lock : LONGINT; fileInfoBlock : pFileInfoBlock) : BOOLEAN;
 BEGIN
 BEGIN