|
From: | Simon Sobisch |
Subject: | Re: [Bug-GnuCOBOL] cobc: codegen.c: 1124: internal compiler error using GnuCobol Version 3 Release 1 aunder MinGW |
Date: | Sat, 2 Jun 2018 18:34:50 +0200 |
User-agent: | Mozilla/5.0 (Windows NT 10.0; WOW64; rv:52.0) Gecko/20100101 Thunderbird/52.8.0 |
Thank you for the bug report - but in this case the bug is already fixed. I try to come up with RC2 within the next two weeks. Simon Am 02.06.2018 um 16:35 schrieb Bruce Zupek: > IDENTIFICATION DIVISION. > PROGRAM-ID. TESTCLIP. > ENVIRONMENT DIVISION. > CONFIGURATION SECTION. > SOURCE-COMPUTER. IBM-PC. > OBJECT-COMPUTER. IBM-PC. > SPECIAL-NAMES. > ** CALL-CONVENTION 66 IS WINDLL > ** CALL-CONVENTION 66 IS WINAPI. > ** CALL-CONVENTION 74 IS WINAPI. > CALL-CONVENTION 0 WINAPI. > INPUT-OUTPUT SECTION. > FILE-CONTROL. > DATA DIVISION. > FILE SECTION. > WORKING-STORAGE SECTION. > 77 GMEM-FIXED-HEX-ZEROED PIC 9(04) COMP-5 VALUE 8194. > 77 CF-TEXT PIC X(02) VALUE X'0100'. > 77 CF-TEXT2 PIC X(02) VALUE X'0100'. > 77 CF-TEXT3 PIC 9(04) COMP-5 VALUE 1. > 77 CF-TEXT4 PIC X(02) VALUE X'0100'. > 77 ERROR-PAUSE PIC X(01). > 77 DWORD PIC 9(15) COMP-5. > 77 UNPACK PIC 9(08). > 77 I PIC 9(04) COMP-5 VALUE 0. > 77 J PIC 9(04) COMP-5 VALUE 0. > 77 K PIC 9(04) COMP-5 VALUE 0. > 77 L PIC 9(04) COMP-5 VALUE 0. > 77 M PIC 9(04) COMP-5 VALUE 0. > 77 Z91 PIC 9(04) COMP-5. > 77 Z92 PIC 9(04) COMP-5. > 77 Z93 PIC 9(08) COMP-5. > 77 Z94 PIC 9(08) COMP-5. > 77 RET-CODE PIC 9(08) COMP-5 VALUE 0. > 01 PROGRAM-FIELDS. > 05 GLOBALALLOC PIC X(24) VALUE 'GlobalAlloc'. > 05 GLOBALUNLOCK PIC X(24) VALUE 'GlobalUnlock'. > 05 GLOBALLOCK PIC X(24) VALUE 'GlobalLock'. > 05 GLOBALSIZE PIC X(24) VALUE 'GlobalSize'. > 05 SETCLIPBOARDDATA PIC X(24) VALUE 'SetClipboardData'. > 05 OPENCLIPBOARD PIC X(24) VALUE 'OpenClipboard'. > 05 EMPTYCLIPBOARD PIC X(24) VALUE 'EmptyClipboard'. > 05 LOADLIBRARYA PIC X(24) VALUE 'LoadLibraryA'. > 05 GETDLL PIC X(24) VALUE 'GetProcAddress '. > 05 DLL-BUFFER-LEN PIC 9(08) COMP-5 VALUE 200. > 05 DLL-HANDLE PIC 9(08) COMP-5. > 05 DLL-LIBRARY PIC X(24) VALUE SPACES. > 05 DLL-ZERO PIC 9(08) COMP-5 VALUE ZERO. > 05 DLL-PTR PROCEDURE-POINTER. > 05 DLL-PTR-X REDEFINES DLL-PTR PIC X(04). > 05 LINK-DLL-PTR PROCEDURE-POINTER. > 05 LINK-DLL-PTR-X REDEFINES LINK-DLL-PTR PIC X(04). > 05 LINK-DLL-PTR-9 REDEFINES LINK-DLL-PTR PIC 9(08) COMP-5. > 05 DLL-NAME. > 10 DNAME OCCURS 20 TIMES PIC X(01). > 05 FILLER PIC X(01) VALUE X'00'. > 05 SIMPLEDLL PIC X(24). > 05 NOCMD PIC 9(05) COMP-5 VALUE 0. > 05 NOARG POINTER. > 05 NOARG-9 REDEFINES NOARG PIC 9(08) COMP-5. > 05 DEREF POINTER. > 05 DEREF-X REDEFINES DEREF PIC X(04). > 05 DEREF-9 REDEFINES DEREF PIC 9(08) COMP-5. > LINKAGE SECTION. > 01 CLIP-DATA PIC X(63). > PROCEDURE DIVISION. > A-000-MAIN. > A-001-PROCESS. > CALL GlobalAlloc USING > BY VALUE ZERO. > MOVE 63 TO DWORD > MOVE 64 TO GMEM-FIXED-HEX-ZEROED > CALL GlobalAlloc USING > BY VALUE GMEM-FIXED-HEX-ZEROED > BY VALUE DWORD > RETURNING LINK-DLL-PTR > CALL GlobalSize USING > BY VALUE LINK-DLL-PTR-9 > MOVE RETURN-CODE TO Z94 > CALL GlobalLock USING > BY VALUE LINK-DLL-PTR > RETURNING DEREF > SET ADDRESS OF CLIP-DATA TO DEREF > MOVE SPACES TO CLIP-DATA > MOVE 'NOTHING COULD BE FINER THAN TO BE IN CURACAO....' > TO CLIP-DATA > MOVE X'0D0A00' TO CLIP-DATA (59:3) > CALL GlobalUnLock USING > BY VALUE LINK-DLL-PTR > CALL OpenClipboard USING > BY VALUE 0. > CALL EmptyClipboard. > CALL SetClipboardData USING > BY VALUE CF-TEXT3 > BY VALUE LINK-DLL-PTR > RETURNING NOARG > IF RETURN-CODE = 0 > CALL WINAPI 'GetLastError' > DISPLAY 'LAST ERROR RC =:' RETURN-CODE > END-IF > CALL WINAPI 'CloseClipboard'. > STOP RUN.
[Prev in Thread] | Current Thread | [Next in Thread] |