diff options
| author | Omar Rizwan <omar@omar.website> | 2023-04-19 15:11:00 +0000 |
|---|---|---|
| committer | Omar Rizwan <omar@omar.website> | 2023-04-19 15:11:25 +0000 |
| commit | 6744c896dbfccfd65bb1dc5bdac2c45c38a50bd0 (patch) | |
| tree | 23c2942b4687db5048138527c5bd7902da8bb808 /lib | |
| parent | Factor out reactToMatchRemoval, implement Unmatch (diff) | |
| download | folk-6744c896dbfccfd65bb1dc5bdac2c45c38a50bd0.tar.gz folk-6744c896dbfccfd65bb1dc5bdac2c45c38a50bd0.zip | |
Use generations in statement handle; fixes test/commit
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/c.tcl | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -64,6 +64,7 @@ namespace eval c { variable argtypes { int { expr {{ int $argname; Tcl_GetIntFromObj(interp, $obj, &$argname); }}} + int32_t { expr {{ int $argname; Tcl_GetIntFromObj(interp, $obj, &$argname); }}} size_t { expr {{ size_t $argname; Tcl_GetLongFromObj(interp, $obj, (long *)&$argname); }}} intptr_t { expr {{ intptr_t $argname; Tcl_GetLongFromObj(interp, $obj, (long *)&$argname); }}} uint16_t { expr {{ uint16_t $argname; Tcl_GetIntFromObj(interp, $obj, (int *)&$argname); }}} @@ -108,6 +109,7 @@ namespace eval c { variable rtypes { int { expr {{ $robj = Tcl_NewIntObj($rvalue); }}} + int32_t { expr {{ $robj = Tcl_NewIntObj($rvalue); }}} bool { expr {{ $robj = Tcl_NewIntObj($rvalue); }}} uint16_t { expr {{ $robj = Tcl_NewIntObj($rvalue); }}} uint32_t { expr {{ $robj = Tcl_NewIntObj($rvalue); }}} |