Re: [Bug-GnuCOBOL] An other new bug today

[Simon Sobisch]

Hi Veit,

thank you for the report, this seems to be fixed.
Current development version says:

/include/fd-files.CPY(12): error: PICTURE clause required for 'PARS001-ID'
    05  PARS001-ID                  USAGE BINARY.
... identical for other items in this source

./screen/scr-standard-header.CPY(37): error: unbalanced parentheses
./screen/scr-standard-header.CPY(37): error: syntax error, unexpected
Literal, expecting LEADING or TRAILING

   03 LINE 2 COL START-HEADER-NUM
      PIC X( 1 : XLEN ) FROM ZZ-HEADER( 1 : XLEN )
      COPY "color-header".

--> a picture may not be reference modified
--> a source item may not be reference modified

I assume no other compiler allows these syntax.

Note: XLEN seems to not be defined anywhere.

Please fix the sources, try again and report back, and look forward for
3.1rc-1 (if time permits will be released May 2019).

Simon


Am 08.05.2019 um 16:02 schrieb Veit Heise:
> Hello,
>
> my cobol-compiler 3.0 rc1 reports this:
> address@hidden:~/source/cobol$ cob prog01 prog01.cob
>
> attempt to reference unallocated memory (signal SIGSEGV)
>
> cobc: aborting compile of ./include/fd-files.cpy at line 19 (PROGRAM-ID:
> PROG01)
> cobc: Please report this!
>
> The cob-script is:
> #!/bin/bash
> #set -x
> export COB_SET_TRACE=TRUE
> export COB_TRACE_FILE=$HOME/source/cobol/mytrace.$$
> export COB_DUMP_FILE=$HOME/source/bin
> export COB_LOAD_CASE=UPPER
> export COB_PHYSICAL_CANCEL=TRUE
> export COB_LS_FIXED=FALSE
> export COB_SCREEN_ESC=TRUE
> rm -f ~/source/bin/$1 yyy.cob
> cobc -x -free -O2 -o ~/source/bin/$1 -I ./include -I ./inc-file -I
> ./screen -ffold-copy=LOWER \
>      -fintrinsics=ALL -L ~/source/bin $2 $3 $4 $5 $6 $7 $8 $9
> if [ -f ~/source/bin/$1 ]; then
>    ls -hl ~/source/bin/$1 ;
>    rm -rf Y
> fi
> cd ~/source/cobol
> rm -rf Y trace.txt *.o xxx *.i *.so *.c *.c.* __db.
>
> The source-files to this bug are listet in the following manner:
>
> ~/source/cobol/prog01.cob
> ~/source/cobol/include/...*.cpy
> ~/source/cobol/screen/....*.cpy
>
> collected into prog01.tgz in the attachment. Have a look please
>
> Thankyou with regards
> Veit
>
> --
> *Veit Heise, Breslauer Str. 24, D-63477 Maintal, Germany*
>
>
>         New Web-Portal: Steinchens Blog
>         <https://heise-media.eu/steinchens-blog/>
>
> Member of AFCEA - Armed Forces Communication and Electronics Association
> Europe, Brussels, Chapter Bonn, Germany
> Member of FREELENSE - Bundesverband der FotojournalistInnen e.V.,
> Hamburg, Germany
> Member of ACM - German Chapter of ACM, Munich, Germany
> Member of DARC - Deutscher Amateur Radio Club e.V., Baunatal, OV 75:
> Schöneck, Callsign: DK2VH
> Member of Dysmelien e.V., Maintal
>
> *Phone +49-6181-3698511 or 6108324*
>
> **