X-Recipient: archive-cygwin AT delorie DOT com
X-SWARE-Spam-Status: No, hits=-1.7 required=5.0	tests=AWL,BAYES_00,T_RP_MATCHES_RCVD
X-Spam-Check-By: sourceware.org
Message-ID: <4F16F0E1.1000903@mff.cuni.cz>
Date: Wed, 18 Jan 2012 17:18:41 +0100
From: Pavel Kudrna <Pavel DOT Kudrna AT mff DOT cuni DOT cz>
User-Agent: Mozilla/5.0 (Windows NT 5.1; rv:8.0) Gecko/20111105 Thunderbird/8.0
MIME-Version: 1.0
To: cygwin AT cygwin DOT com
Subject: Segmentation fault in Tcl_Init()
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm
List-Id: <cygwin.cygwin.com>
List-Subscribe: <mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive: <http://sourceware.org/ml/cygwin/>
List-Post: <mailto:cygwin AT cygwin DOT com>
List-Help: <mailto:cygwin-help AT cygwin DOT com>, <http://sourceware.org/ml/#faqs>
Sender: cygwin-owner AT cygwin DOT com
Mail-Followup-To: cygwin AT cygwin DOT com
Delivered-To: mailing list cygwin AT cygwin DOT com

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