Переглянути джерело

Dump instruction offsets with decimal integers to match output of trap writers

git-svn-id: https://svn-dept.inf.ethz.ch/svn/lecturers/a2/trunk@8700 8c9fc860-2736-0410-a75d-ab315db34111
negelef 6 роки тому
батько
коміт
510e5e8f79
1 змінених файлів з 3 додано та 1 видалено
  1. 3 1
      source/FoxBinaryCode.Mod

+ 3 - 1
source/FoxBinaryCode.Mod

@@ -568,7 +568,9 @@ TYPE
 				i := from; nr := 0;
 				i := from; nr := 0;
 				IF to >= pc THEN to := pc-1 END;
 				IF to >= pc THEN to := pc-1 END;
 				WHILE i <= to DO
 				WHILE i <= to DO
-					w.String("["); w.Hex(i,3); w.String("] ");
+					w.String("[");
+					IF comments = NIL THEN w.Hex(i,3) ELSE w.Int(i,4) END;
+					w.String("] ");
 					nr := 0;
 					nr := 0;
 					WHILE (i<=to) & (nr<16) DO
 					WHILE (i<=to) & (nr<16) DO
 						IF i = 8 THEN w.String(" ") END;
 						IF i = 8 THEN w.String(" ") END;