const added to Jim_NewStringObj

3 files changed, 16 insertions, 2 deletions

diff --git a/TODO b/TODO
index bbaa98d..28fa784 100644
--- a/TODO
+++ b/TODO
@@ -48,3 +48,16 @@ ERROR MESSAGES
   instead of just:
 
   In procedure 'check' called at file "test.tcl", line 1024
+
+REFERENCES SYSTEM
+
+- The format of the reference will be changed form ~reference:000............:
+  to <reference-<typename>-000000000......>, where typename is the name
+  of the type supplied to the [ref] command at reference creation time.
+  This name is only informative but is stored inside the reference
+  structure, so that for example [lambda] will have as reference name
+  something like <reference-<function>-00000000000000001>, and
+  a list node <reference-<listnode>-00000000000000002> and so on.
+  This makes debugging easier. The name is totally ignored by the
+  garbage collection stage.
+
diff --git a/jim.c b/jim.c
index 657aec8..5c9eb99 100644
--- a/jim.c
+++ b/jim.c
@@ -1772,7 +1772,7 @@ int SetStringFromAny(Jim_Interp *interp, Jim_Obj *objPtr)
 	return JIM_OK;
 }
 
-Jim_Obj *Jim_NewStringObj(Jim_Interp *interp, char *s, int len)
+Jim_Obj *Jim_NewStringObj(Jim_Interp *interp, const char *s, int len)
 {
 	Jim_Obj *objPtr = Jim_NewObj(interp);
 
diff --git a/jim.h b/jim.h
index 5f5b0de..0be72b2 100644
--- a/jim.h
+++ b/jim.h
@@ -462,7 +462,8 @@ char * JIM_API(Jim_GetString)(Jim_Obj *objPtr, int *lenPtr);
 void JIM_API(Jim_InvalidateStringRep)(Jim_Obj *objPtr);
 
 /* string object */
-Jim_Obj * JIM_API(Jim_NewStringObj) (Jim_Interp *interp, char *s, int len);
+Jim_Obj * JIM_API(Jim_NewStringObj) (Jim_Interp *interp, const char *s,
+		int len);
 Jim_Obj * JIM_API(Jim_NewStringObjNoAlloc) (Jim_Interp *interp, char *s,
 		int len);
 void JIM_API(Jim_AppendString) (Jim_Interp *interp, Jim_Obj *objPtr, char *str,