* added the define use_amiga_smartlink

packages/extra/amunits/units/amigados.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,18 @@
     You have to use systemvartags. Check out that unit.
     09 Nov 2002.
 
+    Added the define use_amiga_smartlink.
+    13 Jan 2003.
+    
     [email protected]
 }
 
+
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit amigados;
 
 INTERFACE
@@ -4502,7 +4511,10 @@ END. (* UNIT DOS *)
 
 {
    $Log$
-   Revision 1.4  2002-11-28 19:39:30  nils
+   Revision 1.5  2003-01-13 18:14:56  nils
+   * added the define use_amiga_smartlink
+   
+   Revision 1.4  2002/11/28 19:39:30  nils
      * removed var in datestamp
    
    Revision 1.3  2002/11/17 20:31:24  nils

packages/extra/amunits/units/amigalib.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,
@@ -40,15 +40,22 @@
     Added two printf, one with pchar and one with string.
     They use array of const so this unit compiles with
     mode objfpc.
-
     05 Nov 2002.
 
+    Added the define use_amiga_smartlink
+    13 Jan 2003.
+
     [email protected]
 }
 
+{$mode objfpc}
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit amigalib;
 
-{$mode objfpc}
 
 INTERFACE
 
@@ -423,7 +430,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-11-18 20:50:18  nils
+  Revision 1.4  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.3  2002/11/18 20:50:18  nils
     * update check internal log
 
 }

packages/extra/amunits/units/console.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 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,
@@ -17,8 +17,19 @@
 {
     To call the two routines defined below, you'll need to set
     ConsoleBase to an appropriate value.
+
+    Added the define use_amiga_smartlink.
+    13 Jan 2003.
+    
+    [email protected]  Nils Sjoholm
 }
 
+
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit console;
 
 INTERFACE

packages/extra/amunits/units/timer.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,
@@ -19,10 +19,18 @@
     Removed the var for all functions.
     06 Sep 2000.
 
+    Added the define use_amiga_smartlink.
+    13 Jan 2003.
+
     [email protected]
 
 }
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit timer;
 
 INTERFACE
@@ -153,7 +161,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  2002-11-19 18:47:47  nils
+  Revision 1.3  2003-01-13 18:14:57  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.2  2002/11/19 18:47:47  nils
     * update check internal log
 
 }

packages/extra/amunits/units/utility.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-2002by 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,18 @@
     For use with fpc 1.0.7. Thay are in systemvartags.
     11 Nov 2002.
 
+    
+    Added the define use_amiga_smartlink.
+    13 Jan 2003.
+
     [email protected]
 }
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit utility;
 
 INTERFACE
@@ -915,7 +924,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-11-20 22:09:14  nils
+  Revision 1.4  2003-01-13 18:14:57  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.3  2002/11/20 22:09:14  nils
 
     * added pUtilityBase
 

packages/extra/amunits/utilunits/amigautils.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,
@@ -18,9 +18,17 @@
    This is just a temporary unit I made for some of
    my demos. I hope it will vanish in time.
 
+   
+   Added the define use_amiga_smartlink.
+   13 Jan 2003.
    [email protected]
 }
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit amigautils;
 
 interface
@@ -190,7 +198,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-11-22 21:34:59  nils
+  Revision 1.2  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.1  2002/11/22 21:34:59  nils
 
     * initial release
 

packages/extra/amunits/utilunits/consoleio.pas

@@ -24,10 +24,18 @@ unit consoleio;
     own console.
     12 Sep 2000.
     
+    Added the define use_amiga_smartlink.
+    13 Jan 2003.
+    
     [email protected]
 
 }
- 
+
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 interface
 
 uses exec, intuition, console, amigalib, conunit;
@@ -402,9 +410,12 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-11-22 21:34:59  nils
+  Revision 1.2  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.1  2002/11/22 21:34:59  nils
 
     * initial release
 
 }
-  
+  

packages/extra/amunits/utilunits/doublebuffer.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,
@@ -14,6 +14,11 @@
 
  **********************************************************************}
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit doublebuffer;
 
 
@@ -50,6 +55,10 @@ unit doublebuffer;
      This is just an translation of DoubleBuffer.p from PCQ pascal
      to FPC Pascal.
      28 Aug 2000.
+     
+     Added the define use_amiga_smartlink.
+     13 Jan 2003.
+
      [email protected]
 }
 
@@ -233,7 +242,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-11-22 21:34:59  nils
+  Revision 1.2  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.1  2002/11/22 21:34:59  nils
 
     * initial release
 

packages/extra/amunits/utilunits/easyasl.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,
@@ -27,9 +27,17 @@
     Removed amigaoverlays, use smartlink instead.
     05 Nov 2002.
     
+    Added the define use_amiga_smartlink.
+    13 Jan 2003.
+    
     [email protected]
 }
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit easyasl;
 
 
@@ -506,7 +514,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-11-22 21:34:59  nils
+  Revision 1.2  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.1  2002/11/22 21:34:59  nils
 
     * initial release
 

packages/extra/amunits/utilunits/hisoft.pas

@@ -19,12 +19,18 @@
 	
 	Made this unit to help porting from HS Pascal
 	to fpc. Feel free to add more stuff.
-	
 	09 Nov 2002.
 	
-	[email protected] Nils Sjoholm
+	Added the define use_amiga_smartlink.
+        13 Jan 2003.
+	[email protected] Nils Sjoholm
 }
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit hisoft;
 
 interface
@@ -109,7 +115,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-11-22 21:34:59  nils
+  Revision 1.2  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.1  2002/11/22 21:34:59  nils
 
     * initial release
 

packages/extra/amunits/utilunits/linklist.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,
@@ -14,14 +14,22 @@
 
  **********************************************************************}
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit linklist;
 
 {
    A unit for an easy way to use exec linked lists
    for Amiga. Can also be used for other platforms
    as it is. I hope.
-   
    27 Oct 1998.
+   
+   Added the define use_amiga_smartlink.
+   13 Jan 2003.
+   
    [email protected]
 }
 
@@ -803,7 +811,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-11-22 21:34:59  nils
+  Revision 1.2  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.1  2002/11/22 21:34:59  nils
 
     * initial release
 

packages/extra/amunits/utilunits/msgbox.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,
@@ -13,6 +13,19 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{
+    History:
+    
+    Added the define use_amiga_smartlink.
+    13 Jan 2003.
+    
+    [email protected] Nils Sjoholm
+}    
+
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
 
 unit MsgBox;
 
@@ -72,7 +85,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-11-22 21:34:59  nils
+  Revision 1.2  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.1  2002/11/22 21:34:59  nils
 
     * initial release
 

packages/extra/amunits/utilunits/pastoc.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) 2000 by Nils Sjoholm
+    Copyright (c) 2000-2003 by Nils Sjoholm
     member of the Amiga RTL development team.
 
     See the file COPYING.FPC, included in this distribution,
@@ -13,6 +13,20 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{
+    History:
+    
+    Added the define use_amiga_smartlink.
+    13 Jan 2003.
+    
+    [email protected] Nils Sjoholm
+}
+
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+     
 unit PasToC;
 
 
@@ -119,7 +133,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-11-22 21:34:59  nils
+  Revision 1.2  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.1  2002/11/22 21:34:59  nils
 
     * initial release
 

packages/extra/amunits/utilunits/pcq.pas

@@ -1,3 +1,23 @@
+{
+    This file is part of the Free Pascal run time library.
+
+    A file in Amiga system run time library.
+    Copyright (c) 2002-2003 by Nils Sjoholm
+    member of the Amiga RTL development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
 
 unit pcq;
 
@@ -27,7 +47,8 @@ unit pcq;
      is buggy so I have redone this functions to use an
      internal strcompare instead.
 
-
+     Added the define use_amiga_smartlink.
+     13 Jan 2003.
      Nils Sjoholm < [email protected]
 
 }
@@ -433,7 +454,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-11-22 21:34:59  nils
+  Revision 1.2  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.1  2002/11/22 21:34:59  nils
 
     * initial release
 

packages/extra/amunits/utilunits/systemvartags.pas

@@ -1,6 +1,28 @@
-unit systemvartags;
+{
+    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
+    member of the Amiga RTL development team.
+
+    See the file COPYING.FPC, included in this distribution,
+    for details about the copyright.
+
+    This program is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
+
+ **********************************************************************}
+
 {$mode objfpc}
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
+unit systemvartags;
+
 interface
 
 uses exec,amigados, amigaguide, asl, bullet, intuition, datatypes ,
@@ -11,6 +33,8 @@ uses exec,amigados, amigaguide, asl, bullet, intuition, datatypes ,
      array of const. Use ltrue and lfalse instead. You 
      can just cast a char.
      
+     Added the define use_amiga_smartlink.
+     13 Jan 2003.
      [email protected]
 }
           
@@ -389,7 +413,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-11-22 21:34:59  nils
+  Revision 1.2  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.1  2002/11/22 21:34:59  nils
 
     * initial release
 

packages/extra/amunits/utilunits/timerutils.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,
@@ -13,6 +13,12 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit timerutils;
 
 {
@@ -20,6 +26,9 @@ unit timerutils;
 
    First version of this unit.
    06 Sep 2000.
+   
+   Added the define use_amiga_smartlink.
+   13 Jan 2003.
    [email protected]
 
 }
@@ -107,7 +116,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-11-22 21:34:59  nils
+  Revision 1.2  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.1  2002/11/22 21:34:59  nils
 
     * initial release
 

packages/extra/amunits/utilunits/vartags.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) 2000 by Nils Sjoholm
+    Copyright (c) 2000-2003 by Nils Sjoholm
     member of the Amiga RTL development team.
 
     See the file COPYING.FPC, included in this distribution,
@@ -13,6 +13,10 @@
     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
  **********************************************************************}
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
 
 unit vartags;
 
@@ -35,6 +39,9 @@ unit vartags;
   Use tagsarray instead.
   09 Nov 2002.
   
+  Added the define use_amiga_smartlink.
+  13 Jan 2003.
+
   [email protected]
 
 }
@@ -567,7 +574,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-11-22 21:34:59  nils
+  Revision 1.2  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.1  2002/11/22 21:34:59  nils
 
     * initial release
 

packages/extra/amunits/utilunits/wbargs.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,
@@ -15,12 +15,22 @@
  **********************************************************************}
 
 {
-     The boolean WBStarted is in system.
-     Just check the value of system.WBStarted
-     or just WBStarted, if it is true then you
+     The boolean IsConsole is in system.
+     Just check the value of system.IsConsole
+     or just IsConsole, if it is false then you
      started from workbench.
+     
+     Added the define use_amiga_smartlink.
+     13 Jan 2003.
+     
+     [email protected] Nils Sjoholm
 }
 
+{$I useamigasmartlink.inc}
+{$ifdef use_amiga_smartlink}
+    {$smartlink on}
+{$endif use_amiga_smartlink}
+
 unit WBArgs;
 
 interface
@@ -91,7 +101,10 @@ end.
 
 {
   $Log$
-  Revision 1.1  2002-11-22 21:34:59  nils
+  Revision 1.2  2003-01-13 18:14:56  nils
+  * added the define use_amiga_smartlink
+
+  Revision 1.1  2002/11/22 21:34:59  nils
 
     * initial release