|
From: | Simon Sobisch |
Subject: | Re: libcob codegen error |
Date: | Mon, 26 Jul 2021 11:28:22 +0200 |
User-agent: | Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:91.0) Gecko/20100101 Thunderbird/91.0 |
Thank you for the update, it should also work if the search order would be changed, it seems that /usr/lib/x86_64-linux-gnu takes precedence of /usr/local/lib.
Side note: RPATH possibly would provide solving this issue, too
(hard-wired relative path via $ORIGIN); I'm open for patches...
Hi,
This is my fault. I had library mismatch. I had old version installed from Linux Mint / debian repositorys. I removed old version with apt before I install new version from sources but old libraries were left. After old libraries removed manually test program worked.
root@fiscs-0:~# ls -l /usr/local/lib/libcob*
-rw-r--r-- 1 root root 808708 jul 18 20:20 /usr/local/lib/libcob.a
-rwxr-xr-x 1 root root 944 jul 18 20:20 /usr/local/lib/libcob.la
lrwxrwxrwx 1 root root 15 jul 18 20:20 /usr/local/lib/libcob.so -> libcob.so.4.1.0
lrwxrwxrwx 1 root root 15 jul 18 20:20 /usr/local/lib/libcob.so.4 -> libcob.so.4.1.0
-rwxr-xr-x 1 root root 482232 jul 18 20:20 /usr/local/lib/libcob.so.4.1.0Old libraries:
root@fiscs-0:~# ls -l /usr/lib/x86_64-linux-gnu/libcob*
-rw-r--r-- 1 root root 610914 jul 17 2018 /usr/lib/x86_64-linux-gnu/libcob.a
lrwxrwxrwx 1 root root 15 jul 17 2018 /usr/lib/x86_64-linux-gnu/libcob.so -> libcob.so.4.0.0
lrwxrwxrwx 1 root root 15 jul 17 2018 /usr/lib/x86_64-linux-gnu/libcob.so.4 -> libcob.so.4.0.0
-rw-r--r-- 1 root root 336896 jul 17 2018 /usr/lib/x86_64-linux-gnu/libcob.so.4.0.0
Br
Timo Mattila
Den 2021-07-23 kl. 22:08, skrev Simon Sobisch:
Thank you for the good report. I'll look at that soon and if I can reproduce it, should be able to provide a fix on Monday.
Have a nice weekend,
Simon
Am 22. Juli 2021 11:15:41 MESZ schrieb mattila_timo@kolumbus.fi:Hi, I got error libcob: error: codegen error libcob: error: Please report this! when playing / testing GnuCobol 3.1.2 with Micro Focus screen IO example program on Linux Mint. Source: IDENTIFICATION DIVISION. PROGRAM-ID. FNKEYS. * This is the screen demo modified to demonstrate function keys ENVIRONMENT DIVISION. CONFIGURATION SECTION. SPECIAL-NAMES. CRT STATUS IS CRT-STAT CURSOR IS CURSOR-POSITION. DATA DIVISION. WORKING-STORAGE SECTION. 01 CURSOR-POSITION. 02 CURSOR-LINE PIC 99. 02 CURSOR-COL PIC 99. 01 CRT-STAT PIC 9999. * Areas to contain data from forms on the screen. 01 GO-ON. 02 GO-MESSAGE PIC X(55) VALUE "Press a function key? (Press Fkey or press n to finish)". 02 FILLER PIC X. 01 GO-ON-RED. 02 FILLER PIC X(55). 02 GO-ON-REPLY PIC X. SCREEN SECTION. 01 FKEY-FORM. 03 BLANK SCREEN. 03 LINE 1 COLUMN 35 VALUE "Function Key". PROCEDURE DIVISION. INITIALISE-FORM. MOVE SPACES TO CURSOR-POSITION. DISPLAY FKEY-FORM. NEXT-FKEY. MOVE SPACES TO GO-ON-REPLY. DISPLAY GO-ON AT 2401. ACCEPT GO-ON-RED AT 2401 ON EXCEPTION PERFORM CRT-EXCEPTION END-ACCEPT. IF GO-ON-REPLY = "y" OR "Y" GO TO INITIALISE-FORM. IF GO-ON-REPLY = "n" OR "N" STOP RUN. GO TO NEXT-FKEY. CRT-EXCEPTION. DISPLAY CRT-STAT AT 0170. MOVE SPACE TO GO-ON-REPLY. Details in attached to text document. No matter if parameter "standard-define" has value zero or 1 in file config file "default.conf" BR Timo Mattila
--
Diese Nachricht wurde von meinem Android-Mobiltelefon mit K-9 Mail gesendet.
[Prev in Thread] | Current Thread | [Next in Thread] |