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

Error handling always with exceptions

Browse Source
This commit is contained in:
michael 1998-11-04 14:36:29 +00:00
parent bee09ce299
commit d6c1e881ae
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
fcl/inc/bits.inc
View File

@ -18,11 +18,7 @@
procedure TBits.Error;
begin
{$ifdef NoExceptions}
;
{$else}
Raise EBitsError.Create('');
{$endif}
end;
procedure TBits.SetSize(Value: Integer);
@ -131,7 +127,10 @@
{
$Log$
Revision 1.2 1998-11-04 10:46:42 peter
Revision 1.3 1998-11-04 14:36:29 michael
Error handling always with exceptions
Revision 1.2 1998/11/04 10:46:42 peter
* exceptions work
Revision 1.1 1998/05/04 14:30:11 michael