Changeset 2611


Ignore:
Timestamp:
May 14, 2003, 6:33:44 AM (17 years ago)
Author:
landonf (Landon Fuller)
Message:

Build Pextlib (and CFLib, if enabled) using the Tcl stub library.
This will fix the bus error issues with multiple Tcl installations.

Location:
trunk/base
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/scripts/config.sh

    r2427 r2611  
    5555                        exit 3
    5656                fi
    57                 tclCc="$TCL_CC -c $TCL_CFLAGS_OPTIMIZE $tclInc $*"
     57                tclCc="$TCL_CC -c $TCL_CFLAGS_OPTIMIZE -DUSE_TCL_STUBS $tclInc $*"
    5858                echo "$tclCc"
    5959                $tclCc
     
    6161        link)
    6262                libName=$1; shift; objFiles=$*
    63                 tclLd="$TCL_SHLIB_LD $tclLd $objFiles -o $libName$TCL_SHLIB_SUFFIX $TCL_LIB_SPEC"
     63                tclLd="$TCL_SHLIB_LD $tclLd $objFiles -o $libName$TCL_SHLIB_SUFFIX $TCL_STUB_LIB_SPEC"
    6464                tclLdClean=`echo $tclLd | sed s/\\\${TCL_CC}/"$TCL_CC"/g | sed s/\\\${[A-Za-z_]*}//g`
    6565                echo "$tclLdClean"
  • trunk/base/src/cflib1.0/CFLib.c

    r1696 r2611  
    13461346        };
    13471347
     1348        if(Tcl_InitStubs(interp, "8.3", 0) == NULL)
     1349                return TCL_ERROR;
     1350
    13481351        for (i = 0; sig[i].name != NULL; ++i) {
    13491352                Tcl_CreateObjCommand(interp, sig[i].name, tclCFFunc, &sig[i], NULL);
  • trunk/base/src/pextlib1.0/Pextlib.c

    r2609 r2611  
    540540int Pextlib_Init(Tcl_Interp *interp)
    541541{
     542        if(Tcl_InitStubs(interp, "8.3", 0) == NULL)
     543                return TCL_ERROR;
    542544        Tcl_CreateObjCommand(interp, "system", SystemCmd, NULL, NULL);
    543545        Tcl_CreateObjCommand(interp, "flock", FlockCmd, NULL, NULL);
Note: See TracChangeset for help on using the changeset viewer.