mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-18 09:49:17 +02:00
+ Merged changes from fixes branch
This commit is contained in:
parent
57886308d0
commit
2ec08b84f3
@ -1,5 +1,6 @@
|
||||
{
|
||||
$Id$
|
||||
|
||||
This file is part of the Free Pascal Run time library.
|
||||
Copyright (c) 1993,97 by the Free Pascal development team
|
||||
|
||||
@ -286,7 +287,13 @@ begin
|
||||
end;
|
||||
|
||||
|
||||
function IOResult:Word;
|
||||
procedure abstracterror;[public,alias : 'ABSTRACTERROR'];
|
||||
|
||||
begin
|
||||
Runerror(211);
|
||||
end;
|
||||
|
||||
Function IOResult:Word;
|
||||
Begin
|
||||
IOResult:=InOutRes;
|
||||
InOutRes:=0;
|
||||
@ -462,10 +469,17 @@ end;
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.30 1998-09-14 10:48:20 peter
|
||||
Revision 1.31 1998-09-15 17:12:32 michael
|
||||
+ Merged changes from fixes branch
|
||||
|
||||
|
||||
Revision 1.30 1998/09/14 10:48:20 peter
|
||||
* FPC_ names
|
||||
* Heap manager is now system independent
|
||||
|
||||
Revision 1.29.2.1 1998/09/15 17:08:43 michael
|
||||
+ Added abstracterror call
|
||||
|
||||
Revision 1.29 1998/09/01 17:36:21 peter
|
||||
+ internconst
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user