Changeset 62931a4 in tol

Timestamp:

Feb 27, 2012, 5:42:06 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

2990d87

Parents:

477d78a

Message:

fixing error message when a variable is not found

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4208 be4846ae-f051-483a-831f-b64e7d08527f

File:

• toltcl/generic/tolaccess.cpp (modified) (1 diff)

toltcl/generic/tolaccess.cpp

@@ -650 +650 @@
           Tcl_DString dstr;
           Tcl_DStringInit(&dstr);
-          Tcl_UtfToExternalDString(NULL,Tcl_GetString(items[1]),-1,&dstr);
+          Tcl_UtfToExternalDString(NULL, Tcl_GetString(items[1]), -1, &dstr);
           if (!(syn = gra->FINDVARIABLE(Tcl_DStringValue(&dstr))))
             Tcl_AppendStringsToObj(obj_result, "variable '",
-                                   obj_ref, "' not found in grammar '",
+                                   Tcl_DStringValue( &dstr ),
+                                   "' not found in grammar '",
                                    gra->Name().String(), "'", NULL);
           Tcl_DStringFree(&dstr);