Many bugfixes.

[chiark-tcl.git] / hbytes / ulongs.c

diff --git a/hbytes/ulongs.c b/hbytes/ulongs.c
index e8ea9a839001731d0df5e1a4dda6ff0f873757f7..ce5d8a910a1dbb0af5bf4d2ac0355f05c4646249 100644 (file)
--- a/hbytes/ulongs.c
+++ b/hbytes/ulongs.c
@@ -20,6 +20,12 @@ int do_ulong_add(ClientData cd, Tcl_Interp *ip,
   return TCL_OK;
 }
   
+int do_ulong_multiply(ClientData cd, Tcl_Interp *ip,
+                     uint32_t a, uint32_t b, uint32_t *result) {
+  *result= a * b;
+  return TCL_OK;
+}
+  
 int do_ulong_subtract(ClientData cd, Tcl_Interp *ip,
                      uint32_t a, uint32_t b, uint32_t *result) {
   *result= a - b;