paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +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}
{$define noexceptions}
{ determine the type of the resource/form file }
{$define Win16Res}
unit Classes;
@ -40,18 +38,9 @@ end.
{
$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
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}
;
{$else}
Raise(EBitsError);
Raise EBitsError.Create('');
{$endif}
end;
@ -131,7 +131,10 @@
{
$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.
}

8
fcl/linux/classes.pp
View File

@ -14,9 +14,6 @@
{$MODE OBJFPC}
{ exceptions aren't implemented yet in the compiler }
{$define NoExceptions}
{ determine the type of the resource/form file }
{$define Win16Res}
unit Classes;
@ -40,7 +37,10 @@ implementation
end.
{
$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
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 }
{$define NoExceptions}
{$mode objfpc}
{ determine the type of the resource/form file }
{$define Win16Res}
@ -22,7 +21,8 @@ unit Classes;
interface
uses
dos,strings,sysutils;
sysutils,
strings;
{$i classesh.inc}
@ -30,13 +30,18 @@ implementation
{ Read OS-dependent files }
{$i osfile.inc}
{ Read OS-independent files }
{$i classes.inc}
end.
{
$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
Revision 1.4 1998/10/26 23:01:52 florian