Add some more Tcl_Attempt* functionscore-attemptgetstring

1 files changed, 15 insertions, 0 deletions

diff --git a/generic/tcl.decls b/generic/tcl.decls
index 05849fc..3f90629 100644
--- a/generic/tcl.decls
+++ b/generic/tcl.decls
@@ -104,6 +104,9 @@ declare 20 {
 declare 21 {
     int Tcl_DbIsShared(Tcl_Obj *objPtr, const char *file, int line)
 }
+declare 22 {
+    char *Tcl_DbGetStringFromObj(Tcl_Obj *objPtr, Tcl_Size *lengthPtr, const char *file, int line)
+}
 declare 23 {
     Tcl_Obj *Tcl_DbNewByteArrayObj(const unsigned char *bytes,
 	    Tcl_Size numBytes, const char *file, int line)
@@ -193,6 +196,9 @@ declare 55 {
 declare 56 {
     Tcl_Obj *Tcl_NewStringObj(const char *bytes, Tcl_Size length)
 }
+declare 57 {
+    Tcl_Obj *Tcl_AttemptNewStringObj(const char *bytes, Tcl_Size length)
+}
 declare 58 {
     unsigned char *Tcl_SetByteArrayLength(Tcl_Obj *objPtr, Tcl_Size numBytes)
 }
@@ -1038,6 +1044,15 @@ declare 338 {
 declare 339 {
     Tcl_Size Tcl_WriteObj(Tcl_Channel chan, Tcl_Obj *objPtr)
 }
+declare 340 {
+    char *Tcl_AttemptGetStringFromObj(Tcl_Obj *objPtr, Tcl_Size *lengthPtr)
+}
+declare 341 {
+    char  *Tcl_AttemptSetStringObj(Tcl_Obj *objPtr, const char *bytes, Tcl_Size length)
+}
+declare 342 {
+    Tcl_Obj *Tcl_AttemptDuplicateObj(Tcl_Obj *objPtr)
+}
 declare 343 {
     void Tcl_AlertNotifier(void *clientData)
 }