|
@@ -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
|
|
|
|
|
|
}
|