From bfaa93970c4630c6e284ce183f58bc6d414f213b Mon Sep 17 00:00:00 2001
From: ian <ian>
Date: Mon, 23 Sep 2002 02:27:16 +0000
Subject: [PATCH] Many bugfixes.

---
 base/tables-examples.tct | 4 ++++
 hbytes/ulongs.c          | 6 ++++++
 2 files changed, 10 insertions(+)

diff --git a/base/tables-examples.tct b/base/tables-examples.tct
index 3fd0801..5a1859d 100644
--- a/base/tables-examples.tct
+++ b/base/tables-examples.tct
@@ -40,6 +40,10 @@ Table ulong ULong_SubCommand
 		a	ulong
 		b	ulong
 		=>	ulong
+	multiply
+		a	ulong
+		b	ulong
+		=>	ulong
 	subtract
 		a	ulong
 		b	ulong
diff --git a/hbytes/ulongs.c b/hbytes/ulongs.c
index e8ea9a8..ce5d8a9 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;
-- 
2.30.2