paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 08:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed so 0.99.5 compiles it, but no exception class

Browse Source
This commit is contained in:
peter 1998-08-10 15:52:27 +00:00
parent 3a153e9a42
commit 177e2e567f
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/objpas/sysutils.pp
View File

@ -34,7 +34,7 @@ unit sysutils;
end;
{ exceptions }
{$ifndef VER0_99_5}
exception = class(tobject)
private
fmessage : string;
@ -58,7 +58,7 @@ unit sysutils;
eintoverflow = class(einterror);
ematherror = class(exception);
{$endif}
{ Read date & Time function declarations }
{$i datih.inc}
@ -87,6 +87,7 @@ unit sysutils;
{ Read pchar handling functions implementation }
{$i syspch.inc}
{$ifndef VER0_99_5}
constructor exception.create(const msg : string);
begin
@ -109,12 +110,16 @@ unit sysutils;
inherited create;
{!!!!!}
end;
{$endif}
end.
{
$Log$
Revision 1.3 1998-07-29 15:44:32 michael
Revision 1.4 1998-08-10 15:52:27 peter
* fixed so 0.99.5 compiles it, but no exception class
Revision 1.3 1998/07/29 15:44:32 michael
included sysutils and math.pp as target. They compile now.
Revision 1.2 1998/04/10 15:18:21 michael