Tcl Source Code: Artifact [ac6c341a2c]

Artifact ac6c341a2c8e04cf314c7b2f3cc2082ca86bb7c6:

Attachment "segfault.c" to ticket [405998ffff] added by dgp 2001-03-29 10:09:11.

#include "tcl.h"
#include <limits.h>
int Tcl_AppInit(Tcl_Interp *interp) {
    Tcl_Obj *objPtr;
#if (LONG_MAX == 2147483647L)
    char buf[] = "1234";
#else
    char buf[] = "1234567890A";
#endif
    if (Tcl_Init(interp) == TCL_ERROR) return TCL_ERROR;
    objPtr = Tcl_NewStringObj(buf, sizeof(buf));
    Tcl_SetListObj(objPtr, 0, NULL);
    Tcl_AppendToObj(objPtr, NULL, 0);
    Tcl_Preserve(objPtr);
    Tcl_Release(objPtr);
    return TCL_OK;
}
int main(int argc, char **argv) {
    Tcl_Main(argc, argv, Tcl_AppInit);
    return 0;
}