瀏覽代碼

removed trace

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7425 8c9fc860-2736-0410-a75d-ab315db34111
felixf 7 年之前
父節點
當前提交
cabf0d8118
共有 1 個文件被更改,包括 0 次插入3 次删除
  1. 0 3
      source/Generic.Reflection.Mod

+ 0 - 3
source/Generic.Reflection.Mod

@@ -785,7 +785,6 @@ CONST
 		end := GetAddress(refs, offset);
 		SkipSet(offset);
 		find.found := find.found OR (start <= find.pc) & (find.pc < end);
-		TRACE(start, end);
 		IF find.found THEN
 			find.pos := pos; 
 			RETURN; 
@@ -838,7 +837,6 @@ CONST
 	PROCEDURE FindInModule(refs: Modules.Bytes; VAR offset: SIZE; level: LONGINT; VAR find: Search);
 	VAR pos: SIZE;
 	BEGIN
-		TRACE(offset);
 		pos := offset;
 		IF ~Expect(GetChar(refs, offset) = sfModule) THEN RETURN END;
 		SkipSize(offset);
@@ -854,7 +852,6 @@ CONST
 	PROCEDURE FindInScope(refs: Modules.Bytes; VAR offset: SIZE; level: LONGINT; VAR find: Search);
 	VAR no,i: SIZE;
 	BEGIN
-		TRACE(offset);
 		IF ~Expect(GetChar(refs, offset) = sfScopeBegin) THEN RETURN END;
 		WHILE ~find.found &(refs[offset] = sfVariable) &  (find.minLevel <= level) DO (* Variable *)
 			FindInVariable(refs, offset, level, find);