#1219 COBC signal SIGSEGV
COBC raises SIGSEGV on assignment of literal to undeclared data element
" MOVE 0 TO XENV-CNT "
\IBZANIM\COBOL\CEEENV.COB:134: warning: inline PERFORM without imperative statement used [-Wdialect]
132 | OPEN INPUT SYSIN-FILE
133 | PERFORM UNTIL SYSIN-STATUS = '00'
134 > END-PERFORM
135 | IF SYSIN-STATUS NOT = '00'
136 | DISPLAY 'CEEENV OPEN ENV FAILED RC=:' SYSIN-STATUS
\IBZANIM\COBOL\CEEENV.COB:142: error: 'XENV-CNT' is not defined
140 | END-IF
141 | MOVE '0' TO EOF-SYSIN
142 > MOVE 0 TO XENV-CNT
143 | MOVE 0 TO L
144 | PERFORM A-010-GET-WINDOWS-ENV THRU A-010-EXIT
attempt to reference invalid memory address (signal SIGSEGV)
cobc: aborting compile of \IBZANIM\COBOL\CEEENV.COB at line 143 (PROGRAM-ID: CEEENV)
cobc: Please report this!
No listing was produced because of the SIGSEGV
Program attached
Windows 32 bit
c:\IBZANIM\COBOL>C:\IBZANIM\WINGNU\BIN\cobc \IBZANIM\COBOL\CEEENV.COB -tC:\IBZANIM\LISTINGS\CEEENV.L
ST -oC:\IBZANIM\LOADLIB\CEEENV -fgoto-entry=ok -fno-ec=all -LC:\WINGNU\INCLUDE -ffold-call=upper -L
C:\IBZANIM\WINGNU\INCLUDE -O0 -fassign-clause=ibm -fno-gen-c-decl-static-call -fbinary-size=2-4-8 --
tsymbols -fsign=ebcdic -fodoslide -fimplicit-init -fperform-osvs -fmove-ibm -fhostsign -fnotrunc -fn
o-recursive-check -fdefaultbyte=00 -fsticky-linkage -fsource-location -Xref -A "-include windows.h -
Wno-incompatible-pointer-types"
The command line:
c:\IBZANIM\COBOL>C:\IBZANIM\WINGNU\BIN\cobc \IBZANIM\COBOL\CEEENV.COB -tC:\IBZANIM\LISTINGS\CEEENV.L
ST -oC:\IBZANIM\LOADLIB\CEEENV -fgoto-entry=ok -fno-ec=all -LC:\WINGNU\INCLUDE -ffold-call=upper -L
C:\IBZANIM\WINGNU\INCLUDE -O0 -fassign-clause=ibm -fno-gen-c-decl-static-call -fbinary-size=2-4-8 --
tsymbols -fsign=ebcdic -fodoslide -fimplicit-init -fperform-osvs -fmove-ibm -fhostsign -fnotrunc -fn
o-recursive-check -fdefaultbyte=00 -fsticky-linkage -fsource-location -Xref -A "-include windows.h -
Wno-incompatible-pointer-types"