X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-tcl.git;a=blobdiff_plain;f=hbytes%2Fulongs.c;h=4652fd695c2816029fe8cd3f391a89aca76d22dd;hp=e8ea9a839001731d0df5e1a4dda6ff0f873757f7;hb=9af88eb2e41e2b6a73643948e31262eee08c5400;hpb=f9ddca2f19d966e0d64d5bc6de023dbc3764552c

diff --git a/hbytes/ulongs.c b/hbytes/ulongs.c
index e8ea9a8..4652fd6 100644
--- 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;
@@ -251,7 +257,7 @@ static void ulong_t_dup(Tcl_Obj *src, Tcl_Obj *dup) {
 
 static void ulong_t_ustr(Tcl_Obj *o) {
   uint32_t val;
-  char buf[11];
+  char buf[9];
 
   val= *(const uint32_t*)&o->internalRep.longValue;