two more fields for GC debugging (tracing)

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7277 8c9fc860-2736-0410-a75d-ab315db34111

source/Win32.Objects.Mod

@@ -166,7 +166,9 @@ TYPE
 			n,adr: ADDRESS; desc {UNTRACED}: Modules.ProcedureDescPointer; i: LONGINT; p {UNTRACED}: ANY;
 			context: Kernel32.Wow64Context;
 			a0,a1, obp, osb, osbp, opc, gbp: ADDRESS;
+			O: ANY; ID: LONGINT;
 		BEGIN
+			O := obj; ID := id;
 			IF (handle = 0) OR (mode = Terminated) OR (mode < Ready) (* procedure Wrapper not yet started *)
 			OR (priority > High) (* stack of GC and realtime processes not traced *) THEN
 				RETURN