diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-15 11:15:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-05-15 11:15:28 (GMT) |
| commit | 062f4d052949b2cd7d7a912c8c4980913a8d6f5b (patch) | |
| tree | 04874afa5b0cc2299b475bceac006f2cb4699448 | |
| parent | 284a5014870e629b05bfa74cc12a432b8d45fa1d (diff) | |
| download | tcl-062f4d052949b2cd7d7a912c8c4980913a8d6f5b.zip tcl-062f4d052949b2cd7d7a912c8c4980913a8d6f5b.tar.gz tcl-062f4d052949b2cd7d7a912c8c4980913a8d6f5b.tar.bz2 | |
ckalloc -> attemptckalloc (since return-value is checked). Fix bug in unix/dltest/pkgooa.c, where last NULL-argument was missing
| -rw-r--r-- | compat/opendir.c | 2 | ||||
| -rw-r--r-- | unix/dltest/pkgooa.c | 6 |
2 files changed, 4 insertions, 4 deletions
diff --git a/compat/opendir.c b/compat/opendir.c index 07ef572..64aedaa 100644 --- a/compat/opendir.c +++ b/compat/opendir.c @@ -28,7 +28,7 @@ opendir( if ((fd = open(myname, 0, 0)) == -1) { return NULL; } - dirp = (DIR *) ckalloc(sizeof(DIR)); + dirp = (DIR *) attemptckalloc(sizeof(DIR)); if (dirp == NULL) { /* unreachable? */ close(fd); diff --git a/unix/dltest/pkgooa.c b/unix/dltest/pkgooa.c index 06ff3ac..d731e48 100644 --- a/unix/dltest/pkgooa.c +++ b/unix/dltest/pkgooa.c @@ -110,18 +110,18 @@ Pkgooa_Init( } if (tclStubsPtr == NULL) { Tcl_AppendResult(interp, "Tcl stubs are not initialized, " - "did you compile using -DUSE_TCL_STUBS? "); + "did you compile using -DUSE_TCL_STUBS? ", NULL); return TCL_ERROR; } if (Tcl_OOInitStubs(interp) == NULL) { return TCL_ERROR; } if (tclOOStubsPtr == NULL) { - Tcl_AppendResult(interp, "TclOO stubs are not initialized"); + Tcl_AppendResult(interp, "TclOO stubs are not initialized", NULL); return TCL_ERROR; } if (tclOOIntStubsPtr == NULL) { - Tcl_AppendResult(interp, "TclOO internal stubs are not initialized"); + Tcl_AppendResult(interp, "TclOO internal stubs are not initialized", NULL); return TCL_ERROR; } |