git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7277 8c9fc860-2736-0410-a75d-ab315db34111
@@ -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
felixf