浏览代码

Added module CRC in reflection (identifiability)

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7244 8c9fc860-2736-0410-a75d-ab315db34111
felixf 8 年之前
父节点
当前提交
c4e99c40a2
共有 4 个文件被更改,包括 3 次插入1 次删除
  1. 二进制
      WinAos/A2.exe
  2. 二进制
      WinAos/oberon.exe
  3. 二进制
      WinAos/obg/Reflection.GofW
  4. 3 1
      source/Generic.Reflection.Mod

二进制
WinAos/A2.exe


二进制
WinAos/oberon.exe


二进制
WinAos/obg/Reflection.GofW


+ 3 - 1
source/Generic.Reflection.Mod

@@ -930,7 +930,9 @@ CONST
 		refs := mod.refs;
 		offset := 0; 
 		
-		w.String("State "); w.String(mod.name); w.Char(":"); w.Ln; Wait(w);
+		w.String("State "); w.String(mod.name); w.Char(":"); 
+		w.String(" (CRC = "); w.Hex(mod.crc,-8) ; w.String(")");
+		w.Ln; Wait(w);
 		IF (GetChar(refs, offset) = sfModule) THEN
 			SkipSize(offset);
 			SkipString(refs, offset);