Fix Tcl9

chpock · Jun 3, 2024 · 5359efb · 5359efb
1 parent a05fbe6
commit 5359efb
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/generic/fsindexCmd.c b/generic/fsindexCmd.c
@@ -88,7 +88,7 @@ Tcl_Obj *CookfsGetFsindexObjectCmd(Tcl_Interp *interp, Cookfs_Fsindex *i) {
         goto done;
     }
     const char *cmd = Tcl_GetString(rc);
-    if (Tcl_GetAlias(interp, cmd, NULL, NULL, NULL, NULL) == TCL_OK) {
+    if (Tcl_GetAliasObj(interp, cmd, NULL, NULL, NULL, NULL) == TCL_OK) {
         CookfsLog(printf("CookfsGetFsindexObjectCmd: alias already exists"));
         goto done;
     }

diff --git a/generic/pagesCmd.c b/generic/pagesCmd.c
@@ -72,7 +72,7 @@ Tcl_Obj *CookfsGetPagesObjectCmd(Tcl_Interp *interp, Cookfs_Pages *p) {
         goto done;
     }
     const char *cmd = Tcl_GetString(rc);
-    if (Tcl_GetAlias(interp, cmd, NULL, NULL, NULL, NULL) == TCL_OK) {
+    if (Tcl_GetAliasObj(interp, cmd, NULL, NULL, NULL, NULL) == TCL_OK) {
         CookfsLog(printf("CookfsGetPagesObjectCmd: alias already exists"));
         goto done;
     }

diff --git a/generic/vfs.c b/generic/vfs.c
@@ -301,7 +301,7 @@ Tcl_Obj *CookfsGetVfsObjectCmd(Tcl_Interp* interp, Cookfs_Vfs *vfs) {
             goto done;
         }
         const char *cmd = Tcl_GetString(rc);
-        if (Tcl_GetAlias(interp, cmd, NULL, NULL, NULL, NULL) == TCL_OK) {
+        if (Tcl_GetAliasObj(interp, cmd, NULL, NULL, NULL, NULL) == TCL_OK) {
             CookfsLog(printf("CookfsGetVfsObjectCmd: alias already exists"));
             goto done;
         }