chiark / gitweb /
Many bugfixes.
authorian <ian>
Mon, 23 Sep 2002 02:27:16 +0000 (02:27 +0000)
committerian <ian>
Mon, 23 Sep 2002 02:27:16 +0000 (02:27 +0000)
base/tables-examples.tct
hbytes/ulongs.c

index 3fd0801..5a1859d 100644 (file)
@@ -40,6 +40,10 @@ Table ulong ULong_SubCommand
                a       ulong
                b       ulong
                =>      ulong
+       multiply
+               a       ulong
+               b       ulong
+               =>      ulong
        subtract
                a       ulong
                b       ulong
index e8ea9a8..ce5d8a9 100644 (file)
@@ -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;