Browse Source

* removed debug code accidentally left in

Károly Balogh 20 years ago
parent
commit
be1d1d304d
1 changed files with 4 additions and 3 deletions
  1. 4 3
      rtl/morphos/system.pp

+ 4 - 3
rtl/morphos/system.pp

@@ -62,7 +62,6 @@ var
 
 
   MOS_heapPool : Pointer; { pointer for the OS pool for growing the heap }
   MOS_heapPool : Pointer; { pointer for the OS pool for growing the heap }
   MOS_origDir  : LongInt; { original directory on startup }
   MOS_origDir  : LongInt; { original directory on startup }
-  MOS_currDir  : LongInt; { current directory handle }
   MOS_ambMsg   : Pointer;
   MOS_ambMsg   : Pointer;
   MOS_ConName  : PChar ='CON:10/30/620/100/FPC Console Output/AUTO/CLOSE/WAIT';
   MOS_ConName  : PChar ='CON:10/30/620/100/FPC Console Output/AUTO/CLOSE/WAIT';
   MOS_ConHandle: LongInt;
   MOS_ConHandle: LongInt;
@@ -534,7 +533,6 @@ begin
   { Changing the directory is a pretty complicated affair }
   { Changing the directory is a pretty complicated affair }
   {   1) Obtain a lock on the directory                   }
   {   1) Obtain a lock on the directory                   }
   {   2) CurrentDir the lock                              }
   {   2) CurrentDir the lock                              }
-  writeln('locking: >>',tmpStr,'<<');
   tmpLock:=Lock(@tmpStr,SHARED_LOCK);
   tmpLock:=Lock(@tmpStr,SHARED_LOCK);
   if tmpLock=0 then begin
   if tmpLock=0 then begin
     dosError2InOut(IoErr);
     dosError2InOut(IoErr);
@@ -871,7 +869,10 @@ end.
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.25  2004-12-07 09:55:46  karoly
+  Revision 1.26  2004-12-07 10:07:50  karoly
+    * removed debug code accidentally left in
+
+  Revision 1.25  2004/12/07 09:55:46  karoly
     * previous change broke PathConv, fixed
     * previous change broke PathConv, fixed
 
 
   Revision 1.24  2004/12/06 20:09:55  karoly
   Revision 1.24  2004/12/06 20:09:55  karoly