paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 15:02:21 +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; end;
{ exceptions } { exceptions }
{$ifndef VER0_99_5}
exception = class(tobject) exception = class(tobject)
private private
fmessage : string; fmessage : string;
@ -58,7 +58,7 @@ unit sysutils;
eintoverflow = class(einterror); eintoverflow = class(einterror);
ematherror = class(exception); ematherror = class(exception);
{$endif}
{ Read date & Time function declarations } { Read date & Time function declarations }
{$i datih.inc} {$i datih.inc}
@ -87,6 +87,7 @@ unit sysutils;
{ Read pchar handling functions implementation } { Read pchar handling functions implementation }
{$i syspch.inc} {$i syspch.inc}
{$ifndef VER0_99_5}
constructor exception.create(const msg : string); constructor exception.create(const msg : string);
begin begin
@ -109,12 +110,16 @@ unit sysutils;
inherited create; inherited create;
{!!!!!} {!!!!!}
end; end;
{$endif}
end. end.
{ {
$Log$ $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. included sysutils and math.pp as target. They compile now.
Revision 1.2 1998/04/10 15:18:21 michael Revision 1.2 1998/04/10 15:18:21 michael