From 72035b40e784180539f0a991218ac3be3f4ecf58 Mon Sep 17 00:00:00 2001
From: carl <carl@freepascal.org>
Date: Wed, 27 Feb 2002 17:20:44 +0000
Subject: [PATCH] + fix for BP

---
 utils/ptop.pp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/utils/ptop.pp b/utils/ptop.pp
index d11f30eaa6..8960db2322 100644
--- a/utils/ptop.pp
+++ b/utils/ptop.pp
@@ -144,7 +144,7 @@ end;
 
 
 begin
-  StreamError:={$ifndef tp}@{$endif}StreamErrorProcedure;
+  StreamError:=@StreamErrorProcedure;
   ProcessOpts;
   if BeVerbose then
     begin
@@ -195,7 +195,10 @@ end.
 
 {
   $Log$
-  Revision 1.2  2002-02-27 16:33:45  carl
+  Revision 1.3  2002-02-27 17:20:44  carl
+  + fix for BP
+
+  Revision 1.2  2002/02/27 16:33:45  carl
   - truncated log
   * bugfix of -l parameter (was never valid)
   + added version information