From 2ca1f87e7695a4ac2dbf330e9366930b4ff4b867 Mon Sep 17 00:00:00 2001
From: Omar Rizwan <omar@omar.website>
Date: Thu, 2 Feb 2023 22:31:51 -0500
Subject: Add cstructs test; more progress on c-statements play

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

(limited to 'lib')

diff --git a/lib/c.tcl b/lib/c.tcl
index 9874b83a..4318662f 100644
--- a/lib/c.tcl
+++ b/lib/c.tcl
@@ -14,6 +14,7 @@ namespace eval c {
 
             variable argtypes {
                 int { expr {{ Tcl_GetIntFromObj(interp, $obj, &$argname); }}}
+                size_t { expr {{ Tcl_GetIntFromObj(interp, $obj, &$argname); }}}
                 uint32_t { expr {{ sscanf(Tcl_GetString($obj), "%"PRIu32, &$argname); }}}
                 uint64_t { expr {{ sscanf(Tcl_GetString($obj), "%"PRIu64, &$argname); }}}
                 char* { expr {{ $argname = Tcl_GetString($obj); }} }
@@ -40,6 +41,10 @@ namespace eval c {
                     Tcl_SetObjResult(interp, Tcl_NewIntObj(rv));
                     return TCL_OK;
                 }}}
+                size_t { expr {{
+                    Tcl_SetObjResult(interp, Tcl_NewIntObj(rv));
+                    return TCL_OK;
+                }}}
                 uint32_t { expr {{
                     Tcl_SetObjResult(interp, Tcl_NewWideIntObj(rv));
                     return TCL_OK;
-- 
cgit v1.2.3