diff options
| author | Omar Rizwan <omar@omar.website> | 2023-07-21 19:15:41 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-07-21 19:15:41 +0000 |
| commit | ffcd9bbebdd3e1dc1c5d57d40b96e4ce9c532939 (patch) | |
| tree | 79f69ba2b2e72c62c43a5e657992b922ff737061 /lib | |
| parent | WIP: process/peer reworking (diff) | |
| download | folk-ffcd9bbebdd3e1dc1c5d57d40b96e4ce9c532939.tar.gz folk-ffcd9bbebdd3e1dc1c5d57d40b96e4ce9c532939.zip | |
c: Some new errors.
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/c.tcl | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -45,7 +45,7 @@ namespace eval c { #include <stdbool.h> #define __ENSURE(EXPR) if (!(EXPR)) { Tcl_SetResult(interp, "failed to convert argument from Tcl to C in: " #EXPR, NULL); return TCL_ERROR; } - #define __ENSURE_OK(EXPR) if ((EXPR) != TCL_OK) { return TCL_ERROR; } + #define __ENSURE_OK(EXPR) if ((EXPR) != TCL_OK) { Tcl_SetResult(interp, "failed to convert argument from Tcl to C in: " #EXPR, NULL); return TCL_ERROR; } } variable code [list] variable objtypes [list] @@ -260,6 +260,7 @@ namespace eval c { snprintf(objPtr->bytes, objPtr->length + 1, format, $[join [lmap fieldname $fieldnames {expr {"Tcl_GetString(robj_$fieldname)"}}] ", "]); } int $[set type]_setFromAnyProc(Tcl_Interp *interp, Tcl_Obj *objPtr) { + Tcl_SetResult(interp, "setFromAnyProc not implemented for $[set type]", NULL); return TCL_ERROR; } Tcl_ObjType $[set type]_ObjType = (Tcl_ObjType) { |