Segmentation fault in Tcl_Init()

[Pavel Kudrna]

Hi All,
I have problem with tcl initialization, see example. Am I doing 
something wrong?
Thanks for help
Pavel Kudrna
$ cat example.c
#include <stdio.h>
#include <tcl.h>

int main(int argc, char * argv[])
{
 printf("Tcl_CreateInterp()\n");

 Tcl_Interp * interp = Tcl_CreateInterp();

 if (!interp) { printf("failed.\n");
                return 0;
              }
 else printf("OK.\n");

 printf("Tcl_Init()\n");

 if (Tcl_Init(0) == TCL_ERROR) printf("failed\n");
 else printf("OK\n");

 return 0;
}

$ gcc example.c -l tcl -o example
$ ./example
Tcl_CreateInterp()
OK.
Tcl_Init()
Segmentation fault (core dumped)
$

--
Problem reports:       http://cygwin.com/problems.html
FAQ:                   http://cygwin.com/faq/
Documentation:         http://cygwin.com/docs.html
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple