paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 19:43:15 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Changed use_excepions to useexceptions

Browse Source
This commit is contained in:
michael 1998-09-18 23:57:26 +00:00
parent 8d64e21dac
commit 6a28735427
2 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/objpas/math.pp
View File

@ -39,7 +39,7 @@ unit math;
interface
{$ifdef USE_EXCEPIONS}
{$ifdef USE_EXCEPTIONS}
uses
sysutils;
{$endif}
@ -614,7 +614,10 @@ end.
{
$Log$
Revision 1.3 1998-09-09 15:29:05 peter
Revision 1.4 1998-09-18 23:57:27 michael
* Changed use_excepions to useexceptions
Revision 1.3 1998/09/09 15:29:05 peter
* removed some warnings
Revision 1.2 1998/07/29 15:44:34 michael

13
rtl/objpas/sysutils.pp
View File

@ -46,7 +46,7 @@ interface
lo,hi : byte;
end;
{$ifdef USE_EXCEPIONS}
{$ifdef USE_EXCEPTIONS}
{ exceptions }
exception = class(tobject)
private
@ -71,7 +71,7 @@ interface
eintoverflow = class(einterror);
ematherror = class(exception);
{$endif USE_EXCEPIONS}
{$endif USE_EXCEPTIONS}
{ Read date & Time function declarations }
{$i datih.inc}
@ -106,7 +106,7 @@ interface
{ Read pchar handling functions implementation }
{$i syspch.inc}
{$ifdef USE_EXCEPIONS}
{$ifdef USE_EXCEPTIONS}
constructor exception.create(const msg : string);
begin
@ -129,13 +129,16 @@ interface
inherited create;
{!!!!!}
end;
{$endif USE_EXCEPIONS}
{$endif USE_EXCEPTIONS}
end.
{
$Log$
Revision 1.7 1998-09-16 14:34:38 pierre
Revision 1.8 1998-09-18 23:57:26 michael
* Changed use_excepions to useexceptions
Revision 1.7 1998/09/16 14:34:38 pierre
* go32v2 did not compile
* wrong code in systr.inc corrected