Commit c5e53124 authored by rdubner's avatar rdubner
Browse files

Debug cobst

parent 8f1caf7d
......@@ -521,8 +521,8 @@ CreateSymc(PARAMETERS &params,
char_count = 10 ;
}
if( char_count >= 120 ) {
params.symc << "\\n\"" << endl;
char_count = 0;
params.symc << "\"" << endl << "\"";
char_count = 1;
continue;
}
char ch = s[i++];
......@@ -532,7 +532,7 @@ CreateSymc(PARAMETERS &params,
continue;
}
if( ch EQ '\\' OR ch EQ '\"' ) {
params.symc << "\\";
params.symc << "\\\\\\";
char_count += 1;
}
params.symc << ch;
......
......@@ -35,7 +35,8 @@ $(project) : $(project).cbl
@# Get rid of intermediate files, leaving behind the .tab file needed by gdb
rm -f $(project).c $(project).o $(project).cbl.o $(project)*.h $(project).i \
$(project).lst $(project).cbl.lst $(project).full.tab $(project).tab
$(project).lst $(project).cbl.lst $(project).full.tab $(project).tab \
$(project).sym.c $(project).sym.o
# This cleans up the various project files, along with any additional
# $(CLEAN) files specified by the parent Makefile It also clobbers any
......
......@@ -83,7 +83,7 @@ $(project).s : $(project).cbl
# .txt files that might be lying around; I often create .txt files
# from dwarfdump and hexdump.
.PHONY : clean
suffixes = .c .s *.h .i .lst .cbl.lst .full.tab .tab .o .cbl.o .x -2.lst
suffixes = .c .s *.h .i .lst .cbl.lst .full.tab .tab .o .cbl.o .x -2.lst .sym.c .sym.o
clean:
rm -f $(addprefix $(project),$(suffixes)) $(project) *.txt $(CLEAN)
......@@ -120,12 +120,13 @@ $(project).c $(project).lst : $(project).cbl
--fgen-c-line-directives --fgen-c-labels \
-T$(project).cbl.lst --tlines=0 --tsymbols $(project).cbl
$(project).tab : $(project).lst
$(project).sym.o : $(project).lst
@echo " "
@echo "*****************************"
@echo "Generate symbols cross-reference"
@echo "*****************************"
$(COBST) $(project).cbl
gcc -c -o $(project).sym.o $(project).sym.c
$(project).s : $(project).c
@echo " "
......@@ -148,21 +149,19 @@ $(project).o : $(project).s
$(ASSEMBLER) --64 -L -anchls=$(project)-2.lst -o $(project).o $(project).s
$(project).cbl.o : $(project).tab $(project).o
@echo " "
@echo "*****************************"
@echo "Do Dubner's modifications to O"
@echo "*****************************"
$(OBMOD) -x -i $(project).o -t $(project).tab -o $(project).cbl.o
#$(project).cbl.o : $(project).tab $(project).o
# @echo " "
# @echo "*****************************"
# @echo "Do Dubner's modifications to O"
# @echo "*****************************"
# $(OBMOD) -x -i $(project).o -t $(project).tab -o $(project).cbl.o
$(project) : $(project).o $(project).sym.o
@echo " "
@echo "*****************************"
@echo "Load from O into executable"
@echo "*****************************"
$(project) : $(project).cbl.o
$(COBC) -x -o $(project) $(project).cbl.o
$(COBC) -x -o $(project) $(project).o $(project).sym.o
......
Source File Line Number Sentence Number Program Name Division Entry Section Paragraph Scope Assembly Section Assembly Symbol Undecorated Name Relative Address Storage Size Field Size Field Pointer Field Offset Field Attribute Pointer Attr Type Code Attr Digits Attr Scale Attr Flags Attr Pic Pointer Picture String
rtest.cbl 3 1 RTEST Procedure RTEST .text .L16 0x0000000000000144
rtest.cbl 4 1 RTEST Procedure RTEST .text 0x0000000000000186
rtest.cbl 5 1 RTEST Procedure RTEST .text 0x00000000000001b2
rtest.cbl 6 1 RTEST Procedure RTEST .text 0x0000000000000276
rtest.cbl 33 1 JIMBOB Procedure JIMBOB .text .L42 0x0000000000000629
rtest.cbl 34 1 JIMBOB Procedure JIMBOB .text 0x000000000000066b
rtest.cbl 35 1 JIMBOB Procedure JIMBOB .text 0x0000000000000697
rtest.cbl 36 1 JIMBOB Procedure JIMBOB .text 0x000000000000074c
rtest.cbl 37 1 JIMBOB Procedure JIMBOB .text 0x0000000000000801
rtest.cbl 38 1 JIMBOB Procedure JIMBOB .text 0x00000000000008cb
rtest.cbl 39 1 JIMBOB Procedure JIMBOB .text 0x0000000000000908
rtest.cbl 43 1 JIM Procedure JIM .text .L76 0x0000000000000eb0
rtest.cbl 44 1 JIM Procedure JIM .text 0x0000000000000ef2
rtest.cbl 45 1 JIM Procedure JIM .text 0x0000000000000f1e
rtest.cbl 46 1 JIM Procedure JIM .text 0x0000000000000f5b
rtest.cbl 47 1 JIM Procedure JIM .text 0x0000000000000f98
rtest.cbl 48 1 JIM Procedure JIM .text 0x000000000000100c
rtest.cbl 49 1 JIM Procedure JIM .text 0x0000000000001084
rtest.cbl 50 1 JIM Procedure JIM .text 0x00000000000010f8
rtest.cbl 51 1 JIM Procedure JIM .text 0x0000000000001135
rtest.cbl 52 1 JIM Procedure JIM .text 0x00000000000011a9
rtest.cbl 53 1 JIM Procedure JIM .text 0x00000000000011e6
rtest.cbl 54 1 JIM Procedure JIM .text .L91 0x000000000000124e
rtest.cbl 55 1 JIM Procedure JIM FirstMiddleLast .text .L91 0x000000000000124e
rtest.cbl 56 1 JIM Procedure JIM FirstMiddleLast ParaFirstName .text .L79 0x0000000000001297
rtest.cbl 56 2 JIM Procedure JIM FirstMiddleLast ParaFirstName .text 0x00000000000012b4
rtest.cbl 57 1 JIM Procedure JIM FirstMiddleLast ParaMiddleInitial .text .L83 0x00000000000012ff
rtest.cbl 57 2 JIM Procedure JIM FirstMiddleLast ParaMiddleInitial .text 0x000000000000131c
rtest.cbl 58 1 JIM Procedure JIM FirstMiddleLast ParaLastName .text .L86 0x0000000000001367
rtest.cbl 58 2 JIM Procedure JIM FirstMiddleLast ParaLastName .text 0x0000000000001384
rtest.cbl 63 1 BOB Procedure BOB .text .L123 0x000000000000178b
rtest.cbl 64 1 BOB Procedure BOB .text 0x00000000000017cd
rtest.cbl 65 1 BOB Procedure BOB .text 0x00000000000017f9
rtest.cbl 66 1 BOB Procedure BOB .text 0x0000000000001836
rtest.cbl 67 1 BOB Procedure BOB .text 0x0000000000001873
rtest.cbl 68 1 BOB Procedure BOB .text 0x00000000000018e7
rtest.cbl 69 1 BOB Procedure BOB .text 0x000000000000195f
rtest.cbl 70 1 BOB Procedure BOB .text 0x00000000000019d3
rtest.cbl 71 1 BOB Procedure BOB .text 0x0000000000001a10
rtest.cbl 76 1 BOB Procedure BOB .text 0x0000000000001a84
rtest.cbl 77 1 BOB Procedure BOB .text 0x0000000000001ac1
rtest.cbl 78 1 BOB Procedure BOB .text .L138 0x0000000000001b29
rtest.cbl 79 1 BOB Procedure BOB .text .L138 0x0000000000001b29
rtest.cbl 80 1 BOB Procedure BOB FirstMiddleLast .text .L138 0x0000000000001b29
rtest.cbl 80 2 BOB Procedure BOB FirstMiddleLast ParaFirstName .text .L126 0x0000000000001ba2
rtest.cbl 80 3 BOB Procedure BOB FirstMiddleLast ParaFirstName .text 0x0000000000001bae
rtest.cbl 80 4 BOB Procedure BOB FirstMiddleLast ParaMiddleInitial .text .L130 0x0000000000001bf9
rtest.cbl 80 5 BOB Procedure BOB FirstMiddleLast ParaMiddleInitial .text 0x0000000000001c05
rtest.cbl 80 6 BOB Procedure BOB FirstMiddleLast ParaLastName .text .L133 0x0000000000001c50
rtest.cbl 80 7 BOB Procedure BOB FirstMiddleLast ParaLastName .text 0x0000000000001c5c
rtest.cbl 93 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB .text .L174 0x00000000000020b9
rtest.cbl 94 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB .text 0x00000000000020fb
rtest.cbl 95 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB .text 0x0000000000002127
rtest.cbl 95 1 DISPLAY-JIM-OR-BOB Procedure LS-JORB Linkage b_42 0x0000000000000000
rtest.cbl 96 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB .text 0x000000000000218d
rtest.cbl 97 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB .text 0x00000000000021ca
rtest.cbl 98 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB .text 0x000000000000223e
rtest.cbl 99 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB .text 0x00000000000022b6
rtest.cbl 100 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB .text 0x000000000000232a
rtest.cbl 101 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB .text 0x0000000000002367
rtest.cbl 102 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB .text 0x00000000000023db
rtest.cbl 103 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB .text 0x0000000000002418
rtest.cbl 104 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB .text .L189 0x0000000000002480
rtest.cbl 105 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB FirstMiddleLast .text .L189 0x0000000000002480
rtest.cbl 106 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB FirstMiddleLast ParaFirstName .text .L177 0x00000000000024c9
rtest.cbl 106 2 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB FirstMiddleLast ParaFirstName .text 0x00000000000024e6
rtest.cbl 107 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB FirstMiddleLast ParaMiddleInitial .text .L181 0x000000000000255a
rtest.cbl 107 2 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB FirstMiddleLast ParaMiddleInitial .text 0x0000000000002577
rtest.cbl 108 1 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB FirstMiddleLast ParaLastName .text .L184 0x00000000000025ef
rtest.cbl 108 2 DISPLAY-JIM-OR-BOB Procedure DISPLAY-JIM-OR-BOB FirstMiddleLast ParaLastName .text 0x000000000000260c
rtest.c.h 19 JIMBOB Data WS-JIM Storage Global .bss b_12 b_12 0x0000000000000010 22
rtest.c.h 20 JIMBOB Data WS-BOB Storage Global .bss b_17 b_17 0x0000000000000030 22
rtest.c.h 21 JIMBOB Data WS-FLOATTEST Storage Global .bss b_29 b_29 0x0000000000000050 4
rtest.c.h 28 JIMBOB Data Attribute Global .rodata a_1 a_1 0x0000000000000000 0x21 0 0 0x1000
rtest.c.h 29 JIMBOB Data Attribute Global .rodata a_2 a_2 0x0000000000000010 0x01 0 0 0x0000
rtest.c.h 30 JIMBOB Data Attribute Global .rodata a_3 a_3 0x0000000000000020 0x13 15 8 0x0201
rtest.c.h 31 JIMBOB Data Attribute Global .rodata a_4 a_4 0x0000000000000030 0x10 4 3 0x1000
rtest.c.h 32 JIMBOB Data Attribute Global .rodata a_5 a_5 0x0000000000000040 0x21 0 0 0x0000
rtest.c.h 38 BOB Data WS-BOB Field Global .data.rel.local f_17 f_17 0x0000000000000000 22 b_17 a_2
rtest.c.h 39 BOB Data WS-FIRSTNAME Field Global .data.rel.local f_18 f_18 0x0000000000000020 10 b_17 a_5
rtest.c.h 40 BOB Data WS-MIDDLE-INITIAL Field Global .data.rel.local f_19 f_19 0x0000000000000040 1 b_17 10 a_5
rtest.c.h 41 BOB Data WS-LASTNAME Field Global .data.rel.local f_21 f_21 0x0000000000000060 10 b_17 12 a_5
rtest.c.h 44 JIM Data WS-JIM Field Global .data.rel.local f_12 f_12 0x0000000000000080 22 b_12 a_2
rtest.c.h 45 JIM Data WS-FIRSTNAME Field Global .data.rel.local f_13 f_13 0x00000000000000a0 10 b_12 a_5
rtest.c.h 46 JIM Data WS-MIDDLE-INITIAL Field Global .data.rel.local f_14 f_14 0x00000000000000c0 1 b_12 10 a_5
rtest.c.h 47 JIM Data WS-LASTNAME Field Global .data.rel.local f_16 f_16 0x00000000000000e0 10 b_12 12 a_5
rtest.c.h 50 JIMBOB Data WS-FLOATTEST Field Global .data.rel.local f_29 f_29 0x0000000000000100 4 b_29 a_3
rtest.c.h 56 Data Constant Global .data.rel.ro.local c_1 c_1 0x0000000000000000 15 entering: rtest a_1
rtest.c.h 57 Data Constant Global .data.rel.ro.local c_2 c_2 0x0000000000000020 16 entering: jimbob a_1
rtest.c.h 58 Data Constant Global .data.rel.ro.local c_3 c_3 0x0000000000000040 4 1234 a_4
rtest.c.h 59 Data Constant Global .data.rel.ro.local c_4 c_4 0x0000000000000060 13 entering: jim a_1
rtest.c.h 60 Data Constant Global .data.rel.ro.local c_5 c_5 0x0000000000000080 13 by pargraphs: a_1
rtest.c.h 61 Data Constant Global .data.rel.ro.local c_6 c_6 0x00000000000000a0 8 by threw a_1
rtest.c.h 62 Data Constant Global .data.rel.ro.local c_7 c_7 0x00000000000000c0 11 by sekshun: a_1
rtest.c.h 63 Data Constant Global .data.rel.ro.local c_8 c_8 0x00000000000000e0 13 entering: bob a_1
rtest.c.h 64 Data Constant Global .data.rel.ro.local c_9 c_9 0x0000000000000100 4 4321 a_4
rtest.c.h 65 Data Constant Global .data.rel.ro.local c_10 c_10 0x0000000000000120 14 entering: jorb a_1
rtest.c.h 69 Data String Global .rodata st_1 st_1 0x00000000000000c9 6 RTEST
rtest.c.h 70 Data String Global .rodata st_2 st_2 0x00000000000000d0 8 DISPLAY
rtest.c.h 71 Data String Global .rodata st_3 st_3 0x00000000000000d8 5 CALL
rtest.c.h 72 Data String Global .rodata st_4 st_4 0x00000000000000e0 9 STOP RUN
rtest.c.h 73 Data String Global .rodata st_5 st_5 0x00000000000000e9 7 JIMBOB
rtest.c.h 74 Data String Global .rodata st_6 st_6 0x00000000000000f0 7 GOBACK
rtest.c.h 75 Data String Global .rodata st_7 st_7 0x00000000000000f7 4 JIM
rtest.c.h 76 Data String Global .rodata st_8 st_8 0x0000000000000100 8 PERFORM
rtest.c.h 77 Data String Global .rodata st_9 st_9 0x0000000000000110 16 FirstMiddleLast
rtest.c.h 78 Data String Global .rodata st_10 st_10 0x0000000000000120 14 ParaFirstName
rtest.c.h 79 Data String Global .rodata st_11 st_11 0x0000000000000130 18 ParaMiddleInitial
rtest.c.h 80 Data String Global .rodata st_12 st_12 0x0000000000000148 13 ParaLastName
rtest.c.h 81 Data String Global .rodata st_13 st_13 0x0000000000000155 4 BOB
rtest.c.h 82 Data String Global .rodata st_14 st_14 0x0000000000000159 5 MOVE
rtest.c.h 83 Data String Global .rodata st_15 st_15 0x0000000000000160 19 DISPLAY-JIM-OR-BOB
rtest.c.l5.h 30 DISPLAY-JIM-OR-BOB Data LS-JORB Field Local .data.rel.local f_42.7443 f_42 0x0000000000000150 22 b_42 a_2
rtest.c.l5.h 31 DISPLAY-JIM-OR-BOB Data LS-FIRSTNAME Field Local .data.rel.local f_43.7444 f_43 0x0000000000000170 10 b_42 a_5
rtest.c.l5.h 32 DISPLAY-JIM-OR-BOB Data LS-MIDDLE-INITIAL Field Local .data.rel.local f_44.7445 f_44 0x0000000000000190 1 b_42 10 a_5
rtest.c.l5.h 33 DISPLAY-JIM-OR-BOB Data LS-LASTNAME Field Local .data.rel.local f_46.7446 f_46 0x00000000000001b0 10 b_42 12 a_5
rtest.c.l2.h 35 JIMBOB Data WS-JUDY Storage Local .bss b_22.7357 b_22 0x00000000000000a0 22
rtest.c.l2.h 36 JIMBOB Data UNUSED Storage Local .bss b_27.7358 b_27 0x00000000000000c0 24
rtest.c.l2.h 42 JIMBOB Data WS-JUDY Field Local .data.rel.local f_22.7359 f_22 0x0000000000000130 22 b_22 a_2
......@@ -26,7 +26,8 @@ boat.o:
clean:
rm -f boat.o libboat.so launchso.o launchso elbarco.so elbarco.tab
rm -f $(project).c $(project).cbl.lst $(project).cbl.o $(project).c*.h \
$(project).full.tab $(project).i $(project).lst $(project).o
$(project).full.tab $(project).i $(project).lst $(project).o \
$(project).sym.c $(project).sym.o
pregit:
# astyle -n --style=kr *.h
......@@ -51,7 +52,8 @@ $(project).so : $(project).cbl
@# Get rid of the intermediate files:
rm -f $(project).c $(project).cbl.lst $(project).cbl.o $(project).c*.h \
$(project).full.tab $(project).i $(project).lst $(project).o
$(project).full.tab $(project).i $(project).lst $(project).o \
$(project).sym.c $(project).sym.o
stubby:
COB_CFLAGS="-Wa,-L,-anchls=$(project).lst" cobc -g $(free) \
......
......@@ -12,3 +12,5 @@ optfde01.o
optfde01.s
optfde01.tab
optfde01.x
optfde01.sym.c
optfde01.sym.o
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