Tcl Library Source Code: Diff

Differences From Artifact [6c0264493f]:

File modules/pt/tests/data/ok/peg_cparam-critcl/7_kleene — part of check-in [19606ae76d] at 2014-06-19 22:53:04 on branch pt-work — Added generation of a proper Tcl error code to all parser runtimes (Tcl, C, generated). Updated all test cases having generated parsers as their results. Updated the apps (pt, tools/regenerate_parsers) to use try to properly capture syntax errors for display. Updated pt::parse::peg to new PEG grammar and above parse changes. (user: andreask size: 49479) [more...]

File modules/pt/tests/data/ok/peg_cparam-critcl/7_kleene — part of check-in [8d635cd7a5] at 2014-06-23 23:46:37 on branch pt-crash-work — Work around the param_query_ls() which seems to be the place where a (long int) vs (void*) size mismatch can induce parser crash. Stashed in-progress work ... (user: andreask size: 49493) [more...]

︙
724 725 726 727 728 729 730 ~~731~~ 732 ~~733~~ 734 735 736 737 738 739 740	724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745	- + - + + + + + +	} SCOPE void rde_param_query_es (RDE_PARAM p, long int* ec, ERROR_STATE* ev) { rde_stack_get (p->ES, ec, (void) ev); } SCOPE void ~~rde_param_query_ls (RDE_PARAM p, long int lc, ~~long int~~** lv)~~ rde_param_query_ls (RDE_PARAM p, long int* lc, void* lv) { ~~rde_stack_get (p->LS, lc, ~~(void)~~ lv);~~ rde_stack_get (p->LS, lc, lv); } SCOPE long int rde_param_query_lstop (RDE_PARAM p) { (long int) rde_stack_top (p->LS); } SCOPE Tcl_HashTable rde_param_query_nc (RDE_PARAM p) { return &p->NC; } SCOPE int
︙
1863 1864 1865 1866 1867 1868 1869 ~~1870 1871~~ 1872 1873 ~~1874 1875~~ 1876 1877 ~~1878~~ 1879 1880 1881 1882 1883 1884 1885	1868 1869 1870 1871 1872 1873 1874 1875 1876 1877 1878 1879 1880 1881 1882 1883 1884 1885 1886	- - - - - +	if (rde_param_query_st (p)) { long int ac; Tcl_Obj** av; rde_param_query_ast (p, &ac, &av); if (ac > 1) { ~~long int lsc;~~ ~~long int* lsv;~~ Tcl_Obj** lv = NALLOC (3+ac, Tcl_Obj); ~~rde_param_query_ls (p, &lsc, &lsv);~~ memcpy(lv + 3, av, ac sizeof (Tcl_Obj)); lv [0] = Tcl_NewObj (); ~~lv [1] = Tcl_NewIntObj (1 + lsv ~~[lsc-1]~~);~~ lv [1] = Tcl_NewIntObj (1 + rde_param_query_lstop (p)); lv [2] = Tcl_NewIntObj (rde_param_query_cl (p)); Tcl_SetObjResult (interp, Tcl_NewListObj (3, lv)); ckfree ((char) lv); } else if (ac == 0) { /*
︙