paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-17 05:00:37 +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; i : longint;
Procedure StreamErrorProcedure(Var S: TStream); FAR; Procedure StreamErrorProcedure(Var S: TStream);{$ifndef fpc}FAR;{$endif}
Begin Begin
If S.Status = StError then If S.Status = StError then
WriteLn('ERROR: General Access failure. Halting'); WriteLn('ERROR: General Access failure. Halting');
@ -138,11 +138,7 @@ end;
begin begin
{$IFDEF TP} StreamError:={$ifndef tp}@{$endif}StreamErrorProcedure;
StreamError:= @StreamErrorProcedure;
{$ELSE}
StreamError:= StreamErrorProcedure;
{$ENDIF}
ProcessOpts; ProcessOpts;
If (Length(InfileName)=0) or (Length(OutFileName)=0) Then If (Length(InfileName)=0) or (Length(OutFileName)=0) Then
Usage; Usage;
@ -187,7 +183,10 @@ end.
{ {
$Log$ $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 + Error detection of streams
Revision 1.3 2000/01/07 16:46:04 daniel Revision 1.3 2000/01/07 16:46:04 daniel