From 6744c896dbfccfd65bb1dc5bdac2c45c38a50bd0 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Wed, 19 Apr 2023 11:11:00 -0400
Subject: Use generations in statement handle; fixes test/commit

---
 lib/c.tcl | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'lib')

diff --git a/lib/c.tcl b/lib/c.tcl
index 1d11985c..5ece2fe8 100644
--- a/lib/c.tcl
+++ b/lib/c.tcl
@@ -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); }}}
-- 
cgit v1.2.3