Posted to tcl by mookie at Fri Mar 12 20:08:11 GMT 2021view pretty

OS: FreeBSD 12
TCL: 5.6.(latest from fossil)
Source: Critcl-3.1.18.1 version
tcl compile with flags: ./configure

$ critcl bgexec.tcl
 (provide bgexec 3.0) (tclStubsPtr     =>  TclStubs *tclStubsPtr;)
 (tclPlatStubsPtr =>  TclPlatStubs *tclPlatStubsPtr;)

Fri Mar 12 20:05:03 +0000 2021 - /srv/scrap/bgexec.tcl

gcc
        -c
        -fPIC
        -DUSE_THREAD_ALLOC=1
        -D_REENTRANT=1
        -D_THREAD_SAFE=1
        -DHAVE_PTHREAD_ATTR_SETSTACKSIZE=1
        -DHAVE_READDIR_R=1
        -DTCL_THREADS=1
        -DUSE_TCL_STUBS
        -I/usr/local/lib/tcl8.6/critcl3.1.18/critcl_c/tcl8.4
        -I/srv/.critcl/freebsd12-amd64
        -o
        /srv/.critcl/freebsd12-amd64/v3118_27b7121cd0d23600eebbc100c4fdd216_pic.o
        /srv/.critcl/freebsd12-amd64/v3118_27b7121cd0d23600eebbc100c4fdd216.c
        -O2
        -DNDEBUG

bgexec.tcl:51: warning: "NDEBUG" redefined
   51 |  #define NDEBUG
      |
<command-line>: note: this is the location of the previous definition
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:598:43: note: in expansion of macro 'Blt_Offset'
  598 |      {BLT_SWITCH_STRING, "-decodeoutput", Blt_Offset(BgExec, outputEncodingName),
      |                                           ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:600:42: note: in expansion of macro 'Blt_Offset'
  600 |      {BLT_SWITCH_STRING, "-decodeerror", Blt_Offset(BgExec, errorEncodingName),
      |                                          ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:602:36: note: in expansion of macro 'Blt_Offset'
  602 |      {BLT_SWITCH_BOOLEAN, "-echo", Blt_Offset(BgExec, sink2.echo), 0},
      |                                    ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:603:36: note: in expansion of macro 'Blt_Offset'
  603 |      {BLT_SWITCH_STRING, "-error", Blt_Offset(BgExec, sink2.doneVar), 0},
      |                                    ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:604:37: note: in expansion of macro 'Blt_Offset'
  604 |      {BLT_SWITCH_STRING, "-update", Blt_Offset(BgExec, sink1.updateVar), 0},
      |                                     ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:605:37: note: in expansion of macro 'Blt_Offset'
  605 |      {BLT_SWITCH_STRING, "-output", Blt_Offset(BgExec, sink1.doneVar), 0},
      |                                     ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:606:40: note: in expansion of macro 'Blt_Offset'
  606 |      {BLT_SWITCH_STRING, "-lasterror", Blt_Offset(BgExec, sink2.updateVar), 0},
      |                                        ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:607:41: note: in expansion of macro 'Blt_Offset'
  607 |      {BLT_SWITCH_STRING, "-lastoutput", Blt_Offset(BgExec, sink1.updateVar), 0},
      |                                         ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:608:36: note: in expansion of macro 'Blt_Offset'
  608 |      {BLT_SWITCH_LIST, "-onerror", Blt_Offset(BgExec, sink2.updateCmd), 0},
      |                                    ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:609:37: note: in expansion of macro 'Blt_Offset'
  609 |      {BLT_SWITCH_LIST, "-onoutput", Blt_Offset(BgExec, sink1.updateCmd), 0},
      |                                     ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:610:43: note: in expansion of macro 'Blt_Offset'
  610 |      {BLT_SWITCH_BOOLEAN, "-keepnewline", Blt_Offset(BgExec, keepNewline), 0},
      |                                           ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:611:37: note: in expansion of macro 'Blt_Offset'
  611 |      {BLT_SWITCH_BOOLEAN, "-check", Blt_Offset(BgExec, interval), 0},
      |                                     ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:612:41: note: in expansion of macro 'Blt_Offset'
  612 |      {BLT_SWITCH_CUSTOM, "-killsignal", Blt_Offset(BgExec, signalNum), 0,
      |                                         ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:614:44: note: in expansion of macro 'Blt_Offset'
  614 |      {BLT_SWITCH_BOOLEAN, "-linebuffered", Blt_Offset(BgExec, lineBuffered), 0},
      |                                            ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:615:42: note: in expansion of macro 'Blt_Offset'
  615 |      {BLT_SWITCH_BOOLEAN, "-ignorecode", Blt_Offset(BgExec, ignoreExitCode), 0},
      |                                          ^~~~~~~~~~
bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
  179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
      |                                   ^
bgexec.tcl:616:36: note: in expansion of macro 'Blt_Offset'
  616 |      {BLT_SWITCH_STRING, "-input", Blt_Offset(BgExec, inputVar), 0}, //DAS
      |                                    ^~~~~~~~~~
bgexec.tcl: In function 'DestroyBgExec':
bgexec.tcl:1371:32: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 1371 |              Tcl_DetachPids(1, (Tcl_Pid *)bgPtr->procIds[i]);
      |                                ^
bgexec.tcl: In function 'TimerProc':
bgexec.tcl:1457:23: error: storage size of 'waitStatus' isn't known
 1457 |      WAIT_STATUS_TYPE waitStatus, lastStatus;
      |                       ^~~~~~~~~~
bgexec.tcl:1457:35: error: storage size of 'lastStatus' isn't known
 1457 |      WAIT_STATUS_TYPE waitStatus, lastStatus;
      |                                   ^~~~~~~~~~
bgexec.tcl: In function 'SetupStdFile':
bgexec.tcl:1918:19: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
 1918 |              fd = (int)clientData;
      |                   ^
bgexec.tcl: In function 'CreateProcess':
bgexec.tcl:2105:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 2105 |          Tcl_WaitPid((Tcl_Pid)pid, &status, WNOHANG);
      |                      ^
bgexec.tcl: In function 'FileForRedirect':
bgexec.tcl:2190:15: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
 2190 |          fd = (int)clientData;
      |               ^
bgexec.tcl: In function 'tcl__bgexec2':
bgexec.tcl:3359:37: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
 3359 |          chan = Tcl_MakeFileChannel((void*)inFd, TCL_WRITABLE);
      |                                     ^

ERROR while compiling code in /srv/scrap/bgexec.tcl:
child process exited abnormally

critcl build failed (/srv/scrap/bgexec.tcl)
Files left in /srv/.critcl/freebsd12-amd64
FAILURES 1
FAILED:  bgexec.tcl
FAILED
FAILED   Fri Mar 12 20:05:03 +0000 2021 - /srv/scrap/bgexec.tcl
FAILED
FAILED   gcc
FAILED          -c
FAILED          -fPIC
FAILED          -DUSE_THREAD_ALLOC=1
FAILED          -D_REENTRANT=1
FAILED          -D_THREAD_SAFE=1
FAILED          -DHAVE_PTHREAD_ATTR_SETSTACKSIZE=1
FAILED          -DHAVE_READDIR_R=1
FAILED          -DTCL_THREADS=1
FAILED          -DUSE_TCL_STUBS
FAILED          -I/usr/local/lib/tcl8.6/critcl3.1.18/critcl_c/tcl8.4
FAILED          -I/srv/.critcl/freebsd12-amd64
FAILED          -o
FAILED          /srv/.critcl/freebsd12-amd64/v3118_27b7121cd0d23600eebbc100c4fdd216_pic.o
FAILED          /srv/.critcl/freebsd12-amd64/v3118_27b7121cd0d23600eebbc100c4fdd216.c
FAILED          -O2
FAILED          -DNDEBUG
FAILED
FAILED   bgexec.tcl:51: warning: "NDEBUG" redefined
FAILED      51 |  #define NDEBUG
FAILED         |
FAILED   <command-line>: note: this is the location of the previous definition
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:598:43: note: in expansion of macro 'Blt_Offset'
FAILED     598 |      {BLT_SWITCH_STRING, "-decodeoutput", Blt_Offset(BgExec, outputEncodingName),
FAILED         |                                           ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:600:42: note: in expansion of macro 'Blt_Offset'
FAILED     600 |      {BLT_SWITCH_STRING, "-decodeerror", Blt_Offset(BgExec, errorEncodingName),
FAILED         |                                          ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:602:36: note: in expansion of macro 'Blt_Offset'
FAILED     602 |      {BLT_SWITCH_BOOLEAN, "-echo", Blt_Offset(BgExec, sink2.echo), 0},
FAILED         |                                    ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:603:36: note: in expansion of macro 'Blt_Offset'
FAILED     603 |      {BLT_SWITCH_STRING, "-error", Blt_Offset(BgExec, sink2.doneVar), 0},
FAILED         |                                    ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:604:37: note: in expansion of macro 'Blt_Offset'
FAILED     604 |      {BLT_SWITCH_STRING, "-update", Blt_Offset(BgExec, sink1.updateVar), 0},
FAILED         |                                     ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:605:37: note: in expansion of macro 'Blt_Offset'
FAILED     605 |      {BLT_SWITCH_STRING, "-output", Blt_Offset(BgExec, sink1.doneVar), 0},
FAILED         |                                     ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:606:40: note: in expansion of macro 'Blt_Offset'
FAILED     606 |      {BLT_SWITCH_STRING, "-lasterror", Blt_Offset(BgExec, sink2.updateVar), 0},
FAILED         |                                        ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:607:41: note: in expansion of macro 'Blt_Offset'
FAILED     607 |      {BLT_SWITCH_STRING, "-lastoutput", Blt_Offset(BgExec, sink1.updateVar), 0},
FAILED         |                                         ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:608:36: note: in expansion of macro 'Blt_Offset'
FAILED     608 |      {BLT_SWITCH_LIST, "-onerror", Blt_Offset(BgExec, sink2.updateCmd), 0},
FAILED         |                                    ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:609:37: note: in expansion of macro 'Blt_Offset'
FAILED     609 |      {BLT_SWITCH_LIST, "-onoutput", Blt_Offset(BgExec, sink1.updateCmd), 0},
FAILED         |                                     ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:610:43: note: in expansion of macro 'Blt_Offset'
FAILED     610 |      {BLT_SWITCH_BOOLEAN, "-keepnewline", Blt_Offset(BgExec, keepNewline), 0},
FAILED         |                                           ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:611:37: note: in expansion of macro 'Blt_Offset'
FAILED     611 |      {BLT_SWITCH_BOOLEAN, "-check", Blt_Offset(BgExec, interval), 0},
FAILED         |                                     ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:612:41: note: in expansion of macro 'Blt_Offset'
FAILED     612 |      {BLT_SWITCH_CUSTOM, "-killsignal", Blt_Offset(BgExec, signalNum), 0,
FAILED         |                                         ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:614:44: note: in expansion of macro 'Blt_Offset'
FAILED     614 |      {BLT_SWITCH_BOOLEAN, "-linebuffered", Blt_Offset(BgExec, lineBuffered), 0},
FAILED         |                                            ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:615:42: note: in expansion of macro 'Blt_Offset'
FAILED     615 |      {BLT_SWITCH_BOOLEAN, "-ignorecode", Blt_Offset(BgExec, ignoreExitCode), 0},
FAILED         |                                          ^~~~~~~~~~
FAILED   bgexec.tcl:179:35: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED     179 |  #define Blt_Offset(type, field) ((int) ((char *) &((type *) 0)->field))
FAILED         |                                   ^
FAILED   bgexec.tcl:616:36: note: in expansion of macro 'Blt_Offset'
FAILED     616 |      {BLT_SWITCH_STRING, "-input", Blt_Offset(BgExec, inputVar), 0}, //DAS
FAILED         |                                    ^~~~~~~~~~
FAILED   bgexec.tcl: In function 'DestroyBgExec':
FAILED   bgexec.tcl:1371:32: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
FAILED    1371 |              Tcl_DetachPids(1, (Tcl_Pid *)bgPtr->procIds[i]);
FAILED         |                                ^
FAILED   bgexec.tcl: In function 'TimerProc':
FAILED   bgexec.tcl:1457:23: error: storage size of 'waitStatus' isn't known
FAILED    1457 |      WAIT_STATUS_TYPE waitStatus, lastStatus;
FAILED         |                       ^~~~~~~~~~
FAILED   bgexec.tcl:1457:35: error: storage size of 'lastStatus' isn't known
FAILED    1457 |      WAIT_STATUS_TYPE waitStatus, lastStatus;
FAILED         |                                   ^~~~~~~~~~
FAILED   bgexec.tcl: In function 'SetupStdFile':
FAILED   bgexec.tcl:1918:19: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED    1918 |              fd = (int)clientData;
FAILED         |                   ^
FAILED   bgexec.tcl: In function 'CreateProcess':
FAILED   bgexec.tcl:2105:22: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
FAILED    2105 |          Tcl_WaitPid((Tcl_Pid)pid, &status, WNOHANG);
FAILED         |                      ^
FAILED   bgexec.tcl: In function 'FileForRedirect':
FAILED   bgexec.tcl:2190:15: warning: cast from pointer to integer of different size [-Wpointer-to-int-cast]
FAILED    2190 |          fd = (int)clientData;
FAILED         |               ^
FAILED   bgexec.tcl: In function 'tcl__bgexec2':
FAILED   bgexec.tcl:3359:37: warning: cast to pointer from integer of different size [-Wint-to-pointer-cast]
FAILED    3359 |          chan = Tcl_MakeFileChannel((void*)inFd, TCL_WRITABLE);
FAILED         |                                     ^
FAILED
FAILED   ERROR while compiling code in /srv/scrap/bgexec.tcl:
FAILED   child process exited abnormally
FAILED
$