Tcl Source Code

Artifact [72bed0d1cb]
Login

Artifact 72bed0d1cbc3dc3233517d2c133693182078111f:

Ticket change [72bed0d1cb] - Ticket [21000b5d40] Problem with Tcl_DeleteInterp() in 8.4.9.1_Activetcl status still Open with 3 other changes by dgp 2014-02-25 13:43:23.
D 2014-02-25T13:43:23.844
J icomment I\sfound\sa\sSolaris\ssystem.\r\n\r\n$\suname\s-a\r\nSunOS\s<<REDACTED>>\s5.10\sGeneric_148888-05\ssun4u\ssparc\sSUNW,Sun-Blade-1000\r\n\r\nOn\sit\sI\sbuilt\sand\sinstalled\sa\sthread-enabled\sTcl\s8.4.9\sfrom\ssources.\r\nI\sused\sthe\s"Forte\sDeveloper\s7\sC\s5.4\s2002/03/09"\scompiler.\r\n\r\nThe\ssmall\sprogram\syou\ssubmitted\sdoesn't\sproduce\sa\sworking\sexecutable\r\nof\scourse.\s\sHere's\sthe\smodified\ssource\sI\sused:\r\n\r\n$\scat\shang.c\r\n#include\s<tcl.h>\r\nint\smain()\r\n{\r\n\sint\sx=0;\r\n\sTcl_Interp*\sa;\r\n\sa\s=\s\sTcl_CreateInterp();\r\n\sif\s(a\s==\sNULL)\r\n\sprintf("Interpreter\screation\sFailed\s\\n");\r\n\sTcl_Init(a);\r\n\sTcl_Eval(a,\s"puts\s\\"Tcl\s[info\spatchlevel]\sthread:$tcl_platform(threaded)\\"");\r\n\sTcl_DeleteInterp(a);\r\n\sprintf("DeleteInterpreter\s\\n");\r\n}\r\n\r\n$\scc\s-I/path/to/installed/Tcl/include\s-L/path/to/installed/Tcl/lib\s-ltcl8.4\shang.c\r\n\r\n$\sa.out\r\nTcl\s8.4.9\sthread:1\r\nDeleteInterpreter\r\n\r\nIt\sdoes\snot\shang.\s\sIt\sreturns\squickly,\swith\sno\sdelay\sthat\sI\scan\r\nperceive.\r\n\r\nIn\sshort,\sI\scannot\sreproduce\sthe\sproblem\syou\sreport\sfrom\sthe\r\ndescription\syou've\soffered.\s\sdkf\smay\shave\sdifferent\sthoughts,\r\nbut\sI'm\snot\sinterested\sin\sseeing\slogs,\sI'm\sinterested\sin\sthe\r\nability\sto\sdemonstrate\sthe\sproblem.\r\n\r\nIf\sI\scannot\sdemonstrate\sthe\sproblem,\sI\ssee\sno\shope\sthat\sI\scan\r\noffer\sany\shelp.
J login dgp
J mimetype text/plain
K 21000b5d407f330efaf8e6207fe8d025b0633ebb
U dgp
Z 0f2405ed424398130bd2e2c04208351c