Commit 7bf2964c authored by rdubner's avatar rdubner
Browse files

Use struct.calcsize() for 32/64-bit determination; modify known-good

parent b1564561
......@@ -19,7 +19,7 @@ all: $(project)
# Note that it is this srule/script that will have to be copied elsewhere to
# compile .cbl sources for gdb debugging
$(project) : $(project).cbl
COBCDXM=-x $(COBCD) $<
COBCDXM=-x $(COBCD) $<
# This cleans up the various project files, along with any additional
# $(CLEAN) files specified by the parent Makefile It also clobbers any
......
......@@ -32,6 +32,15 @@
# This module implements the gdb extension commands cprint and cwatch
## Catalog of environment variables interpreted by this module:
##
## os.environ.get('CPRINT_D','0') When non-zero, causes verbose output
## os.environ.get('CPRINT_E') Can be present when cobglobptr isn't available.
## three-character string e.g., ".$," for "decimal, currency, separator"
## os.environ.get('CPRINT_V', '0') Default formatting p/v N value
## os.environ.get('CPRINT_R', '6')) Default p/? range
## os.environ.get('CPRINT', '0')) When non-zero, registers "cprint" instead of "print" as the command
from __future__ import print_function
import re
......@@ -43,6 +52,7 @@ import subprocess
import ctypes
from ctypes import *
from inspect import currentframe, getframeinfo
from struct import calcsize
# This module implements the gdb extension commands cprint and cwatch
#
......@@ -156,14 +166,7 @@ class GlobalVariables() :
self.debug_level = int(os.environ.get('CPRINT_D','0'))
## Let's figure out if we are a 32-bit or 64-bit machine:
self.SizeofPointer = 4 # Assume 32-bit
command="show architecture"
arch = GdbExecute2(currentframe(),command,self.debug_level)
nfound = arch.find("x86-64")
if nfound == -1 :
nfound = arch.find("sparc")
if nfound != -1 :
self.SizeofPointer = 8
self.SizeofPointer = calcsize('P') # Returns 4 or 8
## Establish the size of a c-side int
self.SizeofInt = ctypes.sizeof(ctypes.c_int)
......
......@@ -3,7 +3,7 @@ DIRECTORIES = $(sort $(wildcard */))
.PHONY : known-good test $(DIRECTORIES) all
all :
@echo "Your choices are 'make known-good' and 'make test'"
@echo "Your choices are 'make known-good' and 'make test' and 'make testprod'"
known-good : $(DIRECTORIES)
@for dir in $(DIRECTORIES) ; \
......
......@@ -4,7 +4,7 @@ GDB?=gdb
.PHONY : known-good test all testprod
all:
@echo "Your choices are 'make known-good' and 'make test'"
@echo "Your choices are 'make known-good' and 'make test' and 'make testprod'"
known-good:
COBCDEVEL=1 $(COBCD) -x test.cbl
......
......@@ -4,7 +4,7 @@ GDB?=gdb
.PHONY : known-good test all testprod
all:
@echo "Your choices are 'make known-good' and 'make test'"
@echo "Your choices are 'make known-good' and 'make test' and 'make testprod'"
known-good:
COBCDEVEL=1 $(COBCD) -x test.cbl
......
......@@ -4,7 +4,8 @@ GDB?=gdb
.PHONY : known-good test all testprod
all:
@echo "Your choices are 'make known-good' and 'make test'"
@echo "Your choices are 'make known-good' and 'make test' and 'make testprod'"
known-good:
COBCDEVEL=1 $(COBCD) -o test -x MAIN.cbl
COBCDEVEL=1 $(COBCD) -m A.cbl
......
......@@ -405,21 +405,21 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 8
4 : 01 CALLED-BLOCK/C [LNK] : "A 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 6
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
1 : 01 CALL-BLOCK/C [W-S] : "C 8"
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 8
4 : 01 CALLED-BLOCK/C [LNK] : "A 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 6
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
01 CALL-BLOCK/C [W-S] : 0x4320202038
1 PERFORM INDENT TIMES
1 : 01 CALL-BLOCK/C [W-S] : "C 6"
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "A 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 0x34
......@@ -428,7 +428,7 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "A 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 0x34
......@@ -437,7 +437,7 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "A 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 0x34
......@@ -446,7 +446,7 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "A 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 0x34
......@@ -455,7 +455,7 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "A 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 0x34
......@@ -464,12 +464,12 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "A 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
1 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
2 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
3 : 01 CALLED-BLOCK/C [LNK] : "A 4"
4 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
4 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
5 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 WE-ARE/CALL-BLOCK/C [W-S] : 0x43202020
15 DISPLAY "; I call nobody"
......@@ -524,27 +524,27 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/B [W-S] : "B "
3 : 05 WS-INDENT/CALL-BLOCK/B [W-S] : 6
4 : 01 CALLED-BLOCK/B [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "A "
6 : 05 INDENT/CALLED-BLOCK/B [LNK] : 4
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/B [LNK] : 2
1 : 01 CALL-BLOCK/B [W-S] : "B 6"
2 : 05 WE-ARE/CALL-BLOCK/B [W-S] : "B "
3 : 05 WS-INDENT/CALL-BLOCK/B [W-S] : 6
4 : 01 CALLED-BLOCK/B [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "A "
6 : 05 INDENT/CALLED-BLOCK/B [LNK] : 4
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/B [LNK] : 2
01 CALL-BLOCK/B [W-S] : 0x4220202036
12 PERFORM INDENT TIMES
1 : 01 CALL-BLOCK/B [W-S] : "B 4"
2 : 05 WE-ARE/CALL-BLOCK/B [W-S] : "B "
3 : 05 WS-INDENT/CALL-BLOCK/B [W-S] : 4
4 : 01 CALLED-BLOCK/B [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/B [LNK] : 2
1 : 01 CALL-BLOCK/B [W-S] : "B 4"
2 : 05 WE-ARE/CALL-BLOCK/B [W-S] : "B "
3 : 05 WS-INDENT/CALL-BLOCK/B [W-S] : 4
4 : 01 CALLED-BLOCK/B [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/B [LNK] : 2
01 CALL-BLOCK/B [W-S] : 0x4220202034
13 DISPLAY ' ' WITH NO ADVANCING
......@@ -552,13 +552,13 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/B [W-S] : "B "
3 : 05 WS-INDENT/CALL-BLOCK/B [W-S] : 4
4 : 01 CALLED-BLOCK/B [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/B [LNK] : 2
1 : 01 CALL-BLOCK/B [W-S] : "B 4"
2 : 05 WE-ARE/CALL-BLOCK/B [W-S] : "B "
3 : 05 WS-INDENT/CALL-BLOCK/B [W-S] : 4
4 : 01 CALLED-BLOCK/B [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/B [LNK] : 2
01 CALL-BLOCK/B [W-S] : 0x4220202034
13 DISPLAY ' ' WITH NO ADVANCING
......@@ -566,13 +566,13 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/B [W-S] : "B "
3 : 05 WS-INDENT/CALL-BLOCK/B [W-S] : 4
4 : 01 CALLED-BLOCK/B [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/B [LNK] : 2
1 : 01 CALL-BLOCK/B [W-S] : "B 4"
2 : 05 WE-ARE/CALL-BLOCK/B [W-S] : "B "
3 : 05 WS-INDENT/CALL-BLOCK/B [W-S] : 4
4 : 01 CALLED-BLOCK/B [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/B [LNK] : 2
01 CALL-BLOCK/B [W-S] : 0x4220202034
15 DISPLAY "I am '" WE-ARE "', called from '" CALLED-FROM "'"
......@@ -580,13 +580,13 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/B [W-S] : "B "
3 : 05 WS-INDENT/CALL-BLOCK/B [W-S] : 4
4 : 01 CALLED-BLOCK/B [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/B [LNK] : 2
1 : 01 CALL-BLOCK/B [W-S] : "B 4"
2 : 05 WE-ARE/CALL-BLOCK/B [W-S] : "B "
3 : 05 WS-INDENT/CALL-BLOCK/B [W-S] : 4
4 : 01 CALLED-BLOCK/B [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/B [LNK] : 2
01 CALL-BLOCK/B [W-S] : 0x4220202034
17 DISPLAY "; I call C"
......@@ -623,13 +623,13 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "B 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
1 : 01 CALL-BLOCK/C [W-S] : "C 6"
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "B 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
01 CALL-BLOCK/C [W-S] : 0x4320202036
1 PERFORM INDENT TIMES
......@@ -637,7 +637,7 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "B 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 0x34
......@@ -646,7 +646,7 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "B 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 0x34
......@@ -655,7 +655,7 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "B 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 0x34
......@@ -664,7 +664,7 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "B 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 0x34
......@@ -673,7 +673,7 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "B 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 INDENT/CALLED-BLOCK/C [LNK] : 0x34
......@@ -682,12 +682,12 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "B 4"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
1 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
2 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
3 : 01 CALLED-BLOCK/C [LNK] : "B 4"
4 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "A "
4 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
5 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
05 WE-ARE/CALL-BLOCK/C [W-S] : 0x43202020
15 DISPLAY "; I call nobody"
......@@ -742,21 +742,21 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 2
1 : 01 CALL-BLOCK/C [W-S] : "C 6"
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 6
4 : 01 CALLED-BLOCK/C [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 4
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 2
01 CALL-BLOCK/C [W-S] : 0x4320202036
1 PERFORM INDENT TIMES
1 : 01 CALL-BLOCK/C [W-S] : "C 4"
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 4
4 : 01 CALLED-BLOCK/C [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 2
05 INDENT/CALLED-BLOCK/C [LNK] : 2
05 INDENT/CALLED-BLOCK/C [LNK] : 0x32
......@@ -765,7 +765,7 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 4
4 : 01 CALLED-BLOCK/C [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 2
05 INDENT/CALLED-BLOCK/C [LNK] : 2
05 INDENT/CALLED-BLOCK/C [LNK] : 0x32
......@@ -774,7 +774,7 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 4
4 : 01 CALLED-BLOCK/C [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 2
05 INDENT/CALLED-BLOCK/C [LNK] : 2
05 INDENT/CALLED-BLOCK/C [LNK] : 0x32
......@@ -783,12 +783,12 @@ I am MAIN; I call A, B, and C
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 4
4 : 01 CALLED-BLOCK/C [LNK] : "MAIN2"
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
5 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "MAIN"
6 : 05 INDENT/CALLED-BLOCK/C [LNK] : 2
1 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
2 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 4
3 : 01 CALLED-BLOCK/C [LNK] : "MAIN2"
4 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
4 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "MAIN"
5 : 05 INDENT/CALLED-BLOCK/C [LNK] : 2
05 WE-ARE/CALL-BLOCK/C [W-S] : 0x43202020
15 DISPLAY "; I call nobody"
......@@ -898,6 +898,13 @@ I am MAIN; I call A, B, and C
3 : 05 CALLED-FROM/CALLED-BLOCK/B [LNK] : "A "
4 : 05 INDENT/CALLED-BLOCK/B [LNK] : 4
01 CALL-BLOCK/B [W-S] : 0x4220202036
1 : 01 CALLED-BLOCK/C [LNK] : "B 6"
2 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
3 : 05 INDENT/CALLED-BLOCK/C [LNK] : 6
1 : 01 CALLED-BLOCK/C [LNK] : "B 6"
2 : 05 CALLED-FROM/CALLED-BLOCK/C [LNK] : "B "
3 : 05 INDENT/CALLED-BLOCK/C [LNK] : 6
01 CALLED-BLOCK/C [LNK] : 0x4220202036
1 : 01 CALL-BLOCK/C [W-S] : "C 8"
2 : 05 WE-ARE/CALL-BLOCK/C [W-S] : "C "
3 : 05 WS-INDENT/CALL-BLOCK/C [W-S] : 8
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment