Преглед изворни кода

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