|
|
@@ -833,10 +833,9 @@ CONST
|
|
|
VAR count,offset: LONGINT; stacklow: ADDRESS; base: ADDRESS; m: Modules.Module; refs: Modules.Bytes;
|
|
|
BEGIN
|
|
|
count := 0; (* frame count *)
|
|
|
- low := bp;
|
|
|
REPEAT
|
|
|
m := Modules.ThisModuleByAdr0(pc);
|
|
|
- IF (ShowAllProcs OR (m # NIL) OR (count = 0)) & (bp # 0) & (bp >= low) & (bp <= high) THEN
|
|
|
+ IF (ShowAllProcs OR (m # NIL) OR (count = 0)) & (bp # 0) & (bp >= low) & (bp < high) THEN
|
|
|
IF CheckHeapAddress( pc ) THEN
|
|
|
WriteProc0(w, m, pc, bp, refs, offset, base); w.Ln;Wait(w); w.Update;
|
|
|
IF long & (~overflow OR (count > 0)) THEN (* show variables *)
|
felixf