Explorar o código

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 %!s(int64=8) %!d(string=hai) anos
pai
achega
c4e99c40a2
Modificáronse 4 ficheiros con 3 adicións e 1 borrados
  1. BIN=BIN
      WinAos/A2.exe
  2. BIN=BIN
      WinAos/oberon.exe
  3. BIN=BIN
      WinAos/obg/Reflection.GofW
  4. 3 1
      source/Generic.Reflection.Mod

BIN=BIN
WinAos/A2.exe


BIN=BIN
WinAos/oberon.exe


BIN=BIN
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);