D 2014-06-13T16:02:46.241
J foundin 0.17
J icomment Attempting\sto\screate\sa\s[tcc4tcl::cproc]\swith\san\sargl\sgreater\sthan\sone\serrors\swith\s"invalid\stype".\r\n\r\n%\stcc4tcl::cproc\sadd\s{int\sa,\sint\sb}\sint\s{return\sa+b;}\r\n<string>:4:\serror:\sinvalid\stype\r\ncompilation\sfailed\r\n\r\nThe\sfull\serror\smessage:\r\n\r\n<string>:4:\serror:\sinvalid\stype\r\ncompilation\sfailed\r\n\s\s\s\swhile\sexecuting\r\n"$tcc(cc)\scompile\s$code"\r\n\s\s\s\s(procedure\s"::tcc4tcl::cc"\sline\s8)\r\n\s\s\s\sinvoked\sfrom\swithin\r\n"::tcc4tcl::cc\s{\r\n#include\s<tcl.h>\r\nstatic\sint\r\nc_add(int\sa,,\sint\sb)\s{\r\nreturn\sa+b;}\r\n\r\n\r\nint\sCmd_N4__add\s(ClientData\sdummy,Tcl_Interp\s*ip,int\sobjc,Tcl_Obj\s*C..."\r\n\s\s\s\s("uplevel"\sbody\sline\s1)\r\n\s\s\s\sinvoked\sfrom\swithin\r\n"uplevel\s1\s[list\s${ns}::cc\s$code]"\r\n\s\s\s\s(procedure\s"::tcc4tcl::ccommand"\sline\s40)\r\n\s\s\s\sinvoked\sfrom\swithin\r\n"::tcc4tcl::ccommand\sadd\s{dummy\sip\sobjc\sobjv}\s{\s\sint\s_a,;\r\n\s\sint\s_b;\r\n\s\sint\srv;\r\n\s\sif\s(objc\s!=\s3)\s{\r\n\s\s\s\sTcl_WrongNumArgs(ip,\s1,\sobjv,\s"a,\sb");\r\n\s\s\s\sreturn\s..."\r\n\s\s\s\s("uplevel"\sbody\sline\s1)\r\n\s\s\s\sinvoked\sfrom\swithin\r\n"uplevel\s1\s[list\s${ns}::ccommand\s$name\s{dummy\sip\sobjc\sobjv}\s$cbody]"\r\n\s\s\s\s(procedure\s"tcc4tcl::cproc"\sline\s5)\r\n\s\s\s\sinvoked\sfrom\swithin\r\n"tcc4tcl::cproc\sadd\s{int\sa,\sint\sb}\sint\s{return\sa+b;}"\r\n\s\s\s\s(file\s"tcc.tcl"\sline\s3)\r\n\r\nMaybe\ssomething\sto\sdo\swith\sc_add\shaving\smore\sthan\sone\s','\sbetween\seach\sargument?\s\r\n\r\nc_add(int\sa,,\sint\sb)\s{return\sa+b;}
J login anonymous
J mimetype text/x-fossil-plain
J severity Critical
J status Open
J title [tcc4tcl::cproc]\serrors\swhen\sgiven\smore\sthan\sone\sargl\sargument
J type Code_Defect
K 2b566b4c81d33f2ec0cfa228966b5804d83c1a0c
U anonymous
Z 2a53fcfe1a0cd5455ea596c62e034acf