paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 02:30:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix wrong $ifdef tp

Browse Source
This commit is contained in:
peter 2000-02-07 13:41:51 +00:00
parent fbf4adeb5e
commit d69bda1c12
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
utils/ptop.pp
View File

@ -120,7 +120,7 @@ Var DiagS : PMemoryStream;
i : longint;
Procedure StreamErrorProcedure(Var S: TStream); FAR;
Procedure StreamErrorProcedure(Var S: TStream);{$ifndef fpc}FAR;{$endif}
Begin
If S.Status = StError then
WriteLn('ERROR: General Access failure. Halting');
@ -138,11 +138,7 @@ end;
begin
{$IFDEF TP}
StreamError:= @StreamErrorProcedure;
{$ELSE}
StreamError:= StreamErrorProcedure;
{$ENDIF}
StreamError:={$ifndef tp}@{$endif}StreamErrorProcedure;
ProcessOpts;
If (Length(InfileName)=0) or (Length(OutFileName)=0) Then
Usage;
@ -187,7 +183,10 @@ end.
{
$Log$
Revision 1.4 2000-02-06 19:58:24 carl
Revision 1.5 2000-02-07 13:41:51 peter
* fix wrong $ifdef tp
Revision 1.4 2000/02/06 19:58:24 carl
+ Error detection of streams
Revision 1.3 2000/01/07 16:46:04 daniel