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.
 
     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.
 
     See the file COPYING.FPC, included in this distribution,
@@ -31,9 +31,17 @@
     For use with fpc 1.0.7 They are in systemvartags.
     11 Nov 2002.
     
+    Added the defines use_amiga_smartlink and
+    use_auto_openlib.
+    13 Jan 2003.
+
     [email protected]
 }
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
 
 UNIT asl;
 
@@ -520,6 +528,10 @@ BEGIN
   END;
 END;
 
+{$I useautoopenlib.inc}
+{$ifdef use_auto_openlib}
+   {$Info Compiling autoopening of asl.library}
+
 var
     asl_exit : Pointer;
 
@@ -551,12 +563,21 @@ begin
        halt(20);
     end;
 
+{$else}
+   {$Warning No autoopening of asl.library compiled}
+   {$Info Make sure you open asl.library yourself}
+{$endif use_auto_openlib}
+
 END. (* UNIT ASL *)
 
 {
   $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
 
 }
-  
+  

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

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal 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.
 
     See the file COPYING.FPC, included in this distribution,
@@ -29,10 +29,20 @@
     For use with fpc 1.0. They are in systemvartags.
     11 Nov 2002.
 
+    Added the defines use_amiga_smartlink and
+    use_auto_openlib.
+    13 Jan 2003.
+
     [email protected]
 
 }
 
+
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit gadtools;
 
 INTERFACE
@@ -738,6 +748,10 @@ BEGIN
   END;
 END;
 
+{$I useautoopenlib.inc}
+{$ifdef use_auto_openlib}
+   {$Info Compiling autoopening of gadtools.library}
+
 var
   gadtools_exit : Pointer;
 
@@ -769,12 +783,22 @@ begin
                     'Oops');
          halt(20);
     end;
+
+{$else}
+   {$Warning No autoopening of gadtools.library compiled}
+   {$Info Make sure you open gadtools.library yourself}
+{$endif use_auto_openlib}
+
 END. (* UNIT GADTOOLS *)
 
 
 {
   $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
 
 }

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

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal 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.
 
     See the file COPYING.FPC, included in this distribution,
@@ -38,10 +38,18 @@
     For use with fpc 1.0.7. They are in systemvartags.
     11 Nov 2002.
 
+    Added the defines use_amiga_smartlink and
+    use_auto_openlib.
+    13 Jan 2003.
     [email protected]
 
 }
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit graphics;
 
 INTERFACE
@@ -4659,6 +4667,10 @@ BEGIN
   END;
 END;
 
+{$I useautoopenlib.inc}
+{$ifdef use_auto_openlib}
+   {$Info Compiling autoopening of graphics.library}
+
 var
     GfxBase_exit : Pointer;
 
@@ -4690,11 +4702,20 @@ begin
        halt(20);
     end;
 
+{$else}
+   {$Warning No autoopening of graphics.library compiled}
+   {$Info Make sure you open graphics.library yourself}
+{$endif use_auto_openlib}
+
 END. (* UNIT GRAPHICS *)
 
 {
   $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
 
 }

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

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal 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.
 
     See the file COPYING.FPC, included in this distribution,
@@ -21,9 +21,16 @@
     For use with fpc 1.0.7. Thay are in systemvartags.
     11 Nov 2002.
 
+    Added the defines use_amiga_smartlink and
+    use_auto_openlib.
+    13 Jan 2003.
     [email protected]
 }
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
 
 UNIT lowlevel;
 
@@ -458,6 +465,10 @@ BEGIN
   END;
 END;
 
+{$I useautoopenlib.inc}
+{$ifdef use_auto_openlib}
+   {$Info Compiling autoopening of lowlevel.library}
+
 var
     lowlevel_exit : pointer;
 
@@ -489,15 +500,23 @@ begin
        halt(20);
     end;
 
+{$else}
+   {$Warning No autoopening of lowlevel.library compiled}
+   {$Info Make sure you open lowlevel.library yourself}
+{$endif use_auto_openlib}
 
 END. (* UNIT LOWLEVEL *)
 
 
 {
   $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
 
 }
 
-  
+