Преглед на файлове

Remove debugging trace

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7070 8c9fc860-2736-0410-a75d-ab315db34111
felixf преди 8 години
родител
ревизия
5f78a06533
променени са 1 файла, в които са добавени 0 реда и са изтрити 2 реда
  1. 0 2
      source/Unix.UnixFiles.Mod

+ 0 - 2
source/Unix.UnixFiles.Mod

@@ -506,7 +506,6 @@ TYPE
 				VAR r: LONGINT;stat: Unix.Status;
 				BEGIN
 					r := Unix.stat( ADDRESSOF( name ), stat );
-					TRACE(r);
 					IF r  # 0 THEN RETURN FALSE END;
 					flags := {};
 					IF IsDirectory( stat ) THEN
@@ -516,7 +515,6 @@ TYPE
 						IF r < 0 THEN  flags := {Files.ReadOnly}  END
 					END;
 					r := Unix.realpath(ADDRESSOF(name), ADDRESSOF(fullName));
-					TRACE(r,name,fullName);
 					IF (r = 0) THEN COPY(name, fullName) END; (* no success *)
 					RETURN TRUE;
 				END Has;