From b4fce59bbc46b5a2b50c807b66925b60154156d3 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 16 Oct 1998 14:20:06 +0000
Subject: [PATCH]   * removed writelns

---
 rtl/win32/dos.pp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/rtl/win32/dos.pp b/rtl/win32/dos.pp
index 6a7e5a7869..c691da5892 100644
--- a/rtl/win32/dos.pp
+++ b/rtl/win32/dos.pp
@@ -514,7 +514,6 @@ end;
 
 procedure findfirst(const path : pathstr;attr : word;var f : searchRec);
 begin
-writeln('a');
 { no error }
   doserror:=0;
   F.Name:=Path;
@@ -523,13 +522,11 @@ writeln('a');
   StringToPchar(f.name);
 { FindFirstFile is a Win32 Call }
   F.FindHandle:=FindFirstFile (pchar(@f.Name),F.W32FindData);
-writeln('l1');
   If longint(F.FindHandle)=Invalid_Handle_value then
    begin
      DosError:=Last2DosError(GetLastError);
      exit;
    end;
-writeln('l1');
 { Find file with correct attribute }
   FindMatch(f);
 end;
@@ -879,7 +876,10 @@ End;
 end.
 {
   $Log$
-  Revision 1.9  1998-10-16 08:55:26  peter
+  Revision 1.10  1998-10-16 14:20:06  peter
+    * removed writelns
+
+  Revision 1.9  1998/10/16 08:55:26  peter
     * findfirst is now more delphi alike
 
   Revision 1.8  1998/08/16 09:12:11  michael