Browse Source

* added the defines use_amiga_smartlink
* and use_auto_openlib

nils 22 years ago
parent
commit
4dbb376035

+ 24 - 3
packages/extra/amunits/units/asl.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
 
 
     A file in Amiga system run time library.
     A file in Amiga system run time library.
-    Copyright (c) 1998-2002 by Nils Sjoholm
+    Copyright (c) 1998-2003 by Nils Sjoholm
     member of the Amiga RTL development team.
     member of the Amiga RTL development team.
 
 
     See the file COPYING.FPC, included in this distribution,
     See the file COPYING.FPC, included in this distribution,
@@ -31,9 +31,17 @@
     For use with fpc 1.0.7 They are in systemvartags.
     For use with fpc 1.0.7 They are in systemvartags.
     11 Nov 2002.
     11 Nov 2002.
     
     
+    Added the defines use_amiga_smartlink and
+    use_auto_openlib.
+    13 Jan 2003.
+
     [email protected]
     [email protected]
 }
 }
 
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
 
 
 UNIT asl;
 UNIT asl;
 
 
@@ -520,6 +528,10 @@ BEGIN
   END;
   END;
 END;
 END;
 
 
+{$I useautoopenlib.inc}
+{$ifdef use_auto_openlib}
+   {$Info Compiling autoopening of asl.library}
+
 var
 var
     asl_exit : Pointer;
     asl_exit : Pointer;
 
 
@@ -551,12 +563,21 @@ begin
        halt(20);
        halt(20);
     end;
     end;
 
 
+{$else}
+   {$Warning No autoopening of asl.library compiled}
+   {$Info Make sure you open asl.library yourself}
+{$endif use_auto_openlib}
+
 END. (* UNIT ASL *)
 END. (* UNIT ASL *)
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2002-11-18 20:50:45  nils
+  Revision 1.3  2003-01-13 20:36:00  nils
+  * added the defines use_amiga_smartlink
+  * and use_auto_openlib
+
+  Revision 1.2  2002/11/18 20:50:45  nils
     * update check internal log
     * update check internal log
 
 
 }
 }
-  
+  

+ 26 - 2
packages/extra/amunits/units/gadtools.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
 
 
     A file in Amiga system run time library.
     A file in Amiga system run time library.
-    Copyright (c) 1998-2002 by Nils Sjoholm
+    Copyright (c) 1998-2003 by Nils Sjoholm
     member of the Amiga RTL development team.
     member of the Amiga RTL development team.
 
 
     See the file COPYING.FPC, included in this distribution,
     See the file COPYING.FPC, included in this distribution,
@@ -29,10 +29,20 @@
     For use with fpc 1.0. They are in systemvartags.
     For use with fpc 1.0. They are in systemvartags.
     11 Nov 2002.
     11 Nov 2002.
 
 
+    Added the defines use_amiga_smartlink and
+    use_auto_openlib.
+    13 Jan 2003.
+
     [email protected]
     [email protected]
 
 
 }
 }
 
 
+
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit gadtools;
 unit gadtools;
 
 
 INTERFACE
 INTERFACE
@@ -738,6 +748,10 @@ BEGIN
   END;
   END;
 END;
 END;
 
 
+{$I useautoopenlib.inc}
+{$ifdef use_auto_openlib}
+   {$Info Compiling autoopening of gadtools.library}
+
 var
 var
   gadtools_exit : Pointer;
   gadtools_exit : Pointer;
 
 
@@ -769,12 +783,22 @@ begin
                     'Oops');
                     'Oops');
          halt(20);
          halt(20);
     end;
     end;
+
+{$else}
+   {$Warning No autoopening of gadtools.library compiled}
+   {$Info Make sure you open gadtools.library yourself}
+{$endif use_auto_openlib}
+
 END. (* UNIT GADTOOLS *)
 END. (* UNIT GADTOOLS *)
 
 
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2002-11-18 20:53:34  nils
+  Revision 1.3  2003-01-13 20:36:00  nils
+  * added the defines use_amiga_smartlink
+  * and use_auto_openlib
+
+  Revision 1.2  2002/11/18 20:53:34  nils
     * update check internal log
     * update check internal log
 
 
 }
 }

+ 23 - 2
packages/extra/amunits/units/graphics.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
 
 
     A file in Amiga system run time library.
     A file in Amiga system run time library.
-    Copyright (c) 1998-2002 by Nils Sjoholm
+    Copyright (c) 1998-2003 by Nils Sjoholm
     member of the Amiga RTL development team.
     member of the Amiga RTL development team.
 
 
     See the file COPYING.FPC, included in this distribution,
     See the file COPYING.FPC, included in this distribution,
@@ -38,10 +38,18 @@
     For use with fpc 1.0.7. They are in systemvartags.
     For use with fpc 1.0.7. They are in systemvartags.
     11 Nov 2002.
     11 Nov 2002.
 
 
+    Added the defines use_amiga_smartlink and
+    use_auto_openlib.
+    13 Jan 2003.
     [email protected]
     [email protected]
 
 
 }
 }
 
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit graphics;
 unit graphics;
 
 
 INTERFACE
 INTERFACE
@@ -4659,6 +4667,10 @@ BEGIN
   END;
   END;
 END;
 END;
 
 
+{$I useautoopenlib.inc}
+{$ifdef use_auto_openlib}
+   {$Info Compiling autoopening of graphics.library}
+
 var
 var
     GfxBase_exit : Pointer;
     GfxBase_exit : Pointer;
 
 
@@ -4690,11 +4702,20 @@ begin
        halt(20);
        halt(20);
     end;
     end;
 
 
+{$else}
+   {$Warning No autoopening of graphics.library compiled}
+   {$Info Make sure you open graphics.library yourself}
+{$endif use_auto_openlib}
+
 END. (* UNIT GRAPHICS *)
 END. (* UNIT GRAPHICS *)
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2002-11-18 20:54:01  nils
+  Revision 1.3  2003-01-13 20:36:00  nils
+  * added the defines use_amiga_smartlink
+  * and use_auto_openlib
+
+  Revision 1.2  2002/11/18 20:54:01  nils
     * update check internal log
     * update check internal log
 
 
 }
 }

+ 22 - 3
packages/extra/amunits/units/lowlevel.pas

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
 
 
     A file in Amiga system run time library.
     A file in Amiga system run time library.
-    Copyright (c) 1998-2002 by Nils Sjoholm
+    Copyright (c) 1998-2003 by Nils Sjoholm
     member of the Amiga RTL development team.
     member of the Amiga RTL development team.
 
 
     See the file COPYING.FPC, included in this distribution,
     See the file COPYING.FPC, included in this distribution,
@@ -21,9 +21,16 @@
     For use with fpc 1.0.7. Thay are in systemvartags.
     For use with fpc 1.0.7. Thay are in systemvartags.
     11 Nov 2002.
     11 Nov 2002.
 
 
+    Added the defines use_amiga_smartlink and
+    use_auto_openlib.
+    13 Jan 2003.
     [email protected]
     [email protected]
 }
 }
 
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
 
 
 UNIT lowlevel;
 UNIT lowlevel;
 
 
@@ -458,6 +465,10 @@ BEGIN
   END;
   END;
 END;
 END;
 
 
+{$I useautoopenlib.inc}
+{$ifdef use_auto_openlib}
+   {$Info Compiling autoopening of lowlevel.library}
+
 var
 var
     lowlevel_exit : pointer;
     lowlevel_exit : pointer;
 
 
@@ -489,15 +500,23 @@ begin
        halt(20);
        halt(20);
     end;
     end;
 
 
+{$else}
+   {$Warning No autoopening of lowlevel.library compiled}
+   {$Info Make sure you open lowlevel.library yourself}
+{$endif use_auto_openlib}
 
 
 END. (* UNIT LOWLEVEL *)
 END. (* UNIT LOWLEVEL *)
 
 
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.2  2002-11-19 18:47:46  nils
+  Revision 1.3  2003-01-13 20:36:00  nils
+  * added the defines use_amiga_smartlink
+  * and use_auto_openlib
+
+  Revision 1.2  2002/11/19 18:47:46  nils
     * update check internal log
     * update check internal log
 
 
 }
 }
 
 
-  
+