tcltls1.7.22 freebsd

sparkle@navitcl2:/srv/~scrap/tcltls-1.7.22 $ make
od -A n -v -t xC < './tls.tcl' > tls.tcl.h.new.1
sed 's@[^0-9A-Fa-f]@@g;s@..@0x&, @g' < tls.tcl.h.new.1 > tls.tcl.h.new.2
rm -f tls.tcl.h.new.1
mv tls.tcl.h.new.2 tls.tcl.h
sh ./gen_dh_params  > dh_params.h.new
*****************************
** Generating DH Primes.   **
** This will take a while. **
*****************************
mv dh_params.h.new dh_params.h
cc -I/usr/bin//include  -I/srv/tcl/include -I/usr/bin//include -I. -I. -DPACKAGE_NAME=\"tcltls\" -DPACKAGE_TARNAME=\"tcltls\" -DPACKAGE_VERSION=\"1.7.22\" -DPACKAGE_STRING=\"tcltls\ 1.7.22\" -DPACKAGE_BUGREPORT=\"\" -DPACKAGE_URL=\"\" -DSTDC_HEADERS=1 -DHAVE_SYS_TYPES_H=1 -DHAVE_SYS_STAT_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_MEMORY_H=1 -DHAVE_STRINGS_H=1 -DHAVE_INTTYPES_H=1 -DHAVE_STDINT_H=1 -DHAVE_UNISTD_H=1 -D__EXTENSIONS__=1 -D_ALL_SOURCE=1 -D_GNU_SOURCE=1 -D_POSIX_PTHREAD_SEMANTICS=1 -D_TANDEM_SOURCE=1 -DHAVE_UNISTD_H=1 -DHAVE_STDLIB_H=1 -DHAVE_STRING_H=1 -DHAVE_STRINGS_H=1 -DMODULE_SCOPE=static -DUSE_TCL_STUBS=1 -D_FORTIFY_SOURCE=2 -DHAVE_TLS_METHOD=1 -DNO_SSL2=1 -DNO_SSL3=1 '-DTCL_CFGVAL_ENCODING="utf-8"' '-DTCL_SHLIB_EXT=".so"' '-DTCL_CFG_OPTIMIZED=1' '-DTCL_WIDE_INT_IS_LONG=1' '-DTCL_UNLOAD_DLLS=1' -I/usr/bin//include -g -O2 -I/srv/tcl/include -Wno-unused-value -Wno-unused-parameter -Wno-deprecated-declarations -Wall -W -Wno-self-assign -fstack-protector-all -fno-strict-overflow -I/usr/bin//include -fPIC -o tls.o -c ./tls.c
./tls.c:41:26: error: unknown type name 'CONST'
   41 | static void     InfoCallback(CONST SSL *ssl, int where, int ret);
      |                              ^
./tls.c:41:36: error: expected ')'
   41 | static void     InfoCallback(CONST SSL *ssl, int where, int ret);
      |                                        ^
./tls.c:41:25: note: to match this '('
   41 | static void     InfoCallback(CONST SSL *ssl, int where, int ret);
      |                             ^
./tls.c:44:49: error: expected ')'
   44 |                         Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
      |                                                                      ^
./tls.c:43:25: note: to match this '('
   43 | static int      CiphersObjCmd(ClientData clientData,
      |                              ^
./tls.c:47:49: error: expected ')'
   47 |                         Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
      |                                                                      ^
./tls.c:46:27: note: to match this '('
   46 | static int      HandshakeObjCmd(ClientData clientData,
      |                                ^
./tls.c:50:49: error: expected ')'
   50 |                         Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
      |                                                                      ^
./tls.c:49:24: note: to match this '('
   49 | static int      ImportObjCmd(ClientData clientData,
      |                             ^
./tls.c:53:49: error: expected ')'
   53 |                         Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
      |                                                                      ^
./tls.c:52:24: note: to match this '('
   52 | static int      StatusObjCmd(ClientData clientData,
      |                             ^
./tls.c:56:49: error: expected ')'
   56 |                         Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
      |                                                                      ^
./tls.c:55:25: note: to match this '('
   55 | static int      VersionObjCmd(ClientData clientData,
      |                              ^
./tls.c:59:49: error: expected ')'
   59 |                         Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
      |                                                                      ^
./tls.c:58:22: note: to match this '('
   58 | static int      MiscObjCmd(ClientData clientData,
      |                           ^
./tls.c:62:49: error: expected ')'
   62 |                         Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
      |                                                                      ^
./tls.c:61:26: note: to match this '('
   61 | static int      UnimportObjCmd(ClientData clientData,
      |                               ^
./tls.c:174:14: error: unknown type name 'CONST'
  174 | InfoCallback(CONST SSL *ssl, int where, int ret)
      |              ^
./tls.c:174:24: error: expected ')'
  174 | InfoCallback(CONST SSL *ssl, int where, int ret)
      |                        ^
./tls.c:174:13: note: to match this '('
  174 | InfoCallback(CONST SSL *ssl, int where, int ret)
      |             ^
./tls.c:176:54: error: expected expression
  176 |     State *statePtr = (State*)SSL_get_app_data((SSL *)ssl);
      |                                                      ^
./tls.c:196:9: error: use of undeclared identifier 'where'; did you mean 'while'?
  196 |     if (where & SSL_CB_HANDSHAKE_START) {
      |         ^~~~~
      |         while
./tls.c:196:9: error: expected expression
./tls.c:199:16: error: use of undeclared identifier 'where'; did you mean 'while'?
  199 |     } else if (where & SSL_CB_HANDSHAKE_DONE) {
      |                ^~~~~
      |                while
./tls.c:199:16: error: expected expression
./tls.c:203:6: error: use of undeclared identifier 'where'; did you mean 'while'?
  203 |         if (where & SSL_CB_ALERT)               major = "alert";
      |             ^~~~~
      |             while
./tls.c:203:6: error: expected expression
./tls.c:204:11: error: use of undeclared identifier 'where'; did you mean 'while'?
  204 |         else if (where & SSL_ST_CONNECT)        major = "connect";
      |                  ^~~~~
      |                  while
fatal error: too many errors emitted, stopping now [-ferror-limit=]
20 errors generated.
*** Error code 1

Stop.