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

* exceptions work

Browse Source
This commit is contained in:
peter 1998-11-04 10:46:41 +00:00
parent 5727090134
commit bee09ce299
4 changed files with 22 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
fcl/go32v2/classes.pp
View File

@ -14,8 +14,6 @@
{$MODE OBJFPC} {$MODE OBJFPC}
{$define noexceptions}
{ determine the type of the resource/form file } { determine the type of the resource/form file }
{$define Win16Res} {$define Win16Res}
unit Classes; unit Classes;
@ -40,18 +38,9 @@ end.
{ {
$Log$ $Log$
Revision 1.1 1998-11-04 10:15:13 peter Revision 1.2 1998-11-04 10:46:41 peter
* exceptions work
Revision 1.1 1998/11/04 10:15:13 peter
* fixes to compile * fixes to compile
Revision 1.4 1998/09/30 13:41:02 florian
* fixes to make it compilable
Revision 1.3 1998/05/06 13:00:25 michael
+ Added strings to uses clause, for TStrings class.
Revision 1.2 1998/05/04 14:31:51 michael
+ Split classes file.
Revision 1.1 1998/05/04 12:16:01 florian
+ Initial revisions after making a new directory structure
} }

7
fcl/inc/bits.inc
View File

@ -21,7 +21,7 @@
{$ifdef NoExceptions} {$ifdef NoExceptions}
; ;
{$else} {$else}
Raise(EBitsError); Raise EBitsError.Create('');
{$endif} {$endif}
end; end;
@ -131,7 +131,10 @@
{ {
$Log$ $Log$
Revision 1.1 1998-05-04 14:30:11 michael Revision 1.2 1998-11-04 10:46:42 peter
* exceptions work
Revision 1.1 1998/05/04 14:30:11 michael
* Split file according to Class; implemented dummys for all methods, so unit compiles. * Split file according to Class; implemented dummys for all methods, so unit compiles.
} }

8
fcl/linux/classes.pp
View File

@ -14,9 +14,6 @@
{$MODE OBJFPC} {$MODE OBJFPC}
{ exceptions aren't implemented yet in the compiler }
{$define NoExceptions}
{ determine the type of the resource/form file } { determine the type of the resource/form file }
{$define Win16Res} {$define Win16Res}
unit Classes; unit Classes;
@ -40,7 +37,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.7 1998-11-04 10:15:13 peter Revision 1.8 1998-11-04 10:46:43 peter
* exceptions work
Revision 1.7 1998/11/04 10:15:13 peter
* fixes to compile * fixes to compile
Revision 1.6 1998/10/02 09:17:57 michael Revision 1.6 1998/10/02 09:17:57 michael

13
fcl/win32/classes.pp
View File

@ -12,8 +12,7 @@
**********************************************************************} **********************************************************************}
{ exceptions aren't implemented yet in the compiler } {$mode objfpc}
{$define NoExceptions}
{ determine the type of the resource/form file } { determine the type of the resource/form file }
{$define Win16Res} {$define Win16Res}
@ -22,7 +21,8 @@ unit Classes;
interface interface
uses uses
dos,strings,sysutils; sysutils,
strings;
{$i classesh.inc} {$i classesh.inc}
@ -30,13 +30,18 @@ implementation
{ Read OS-dependent files } { Read OS-dependent files }
{$i osfile.inc} {$i osfile.inc}
{ Read OS-independent files }
{$i classes.inc} {$i classes.inc}
end. end.
{ {
$Log$ $Log$
Revision 1.5 1998-10-30 14:49:03 michael Revision 1.6 1998-11-04 10:46:44 peter
* exceptions work
Revision 1.5 1998/10/30 14:49:03 michael
+ Empty implementation of file functions + Empty implementation of file functions
Revision 1.4 1998/10/26 23:01:52 florian Revision 1.4 1998/10/26 23:01:52 florian