Commits

james woodyatt committed f61ad1b

More whitespace adjustment.

Comments (0)

Files changed (2)

-4c316f071fba5565bbbcf8c480f127551038a0b8 Conjury
+918dff0769fd7a79df84d443405f817ccc84b412 Conjury
 #include <math.h>
 #include <sys/types.h>
 
-
 static int cf_tai64_op_compare(value v1, value v2);
 static long cf_tai64_op_hash(value v);
-static void cf_tai64_op_serialize
-   (value v, unsigned long* z32, unsigned long* z64);
+static void cf_tai64_op_serialize(value v, unsigned long* z32,
+    unsigned long* z64);
 static unsigned long cf_tai64_op_deserialize(void* buffer);
 
 static value* cf_tai64_range_error_exn = 0;
     CAMLparam0();
     CAMLlocal1(exnVal);
     
-    if (!cf_tai64_range_error_exn)
+    if (!cf_tai64_range_error_exn) {
         cf_tai64_range_error_exn = caml_named_value("Cf_tai64.Range_error");
-    
-    if (!cf_tai64_range_error_exn)
-        invalid_argument
-           ("Cf_tai64: Range_error exception unavailable in primitive.");
+        if (!cf_tai64_range_error_exn)
+            invalid_argument("Cf_tai64: Range_error exception unavailable in \
+                primitive.");
+    }
     
     exnVal = alloc_small(1, 0);
     Store_field(exnVal, 0, *cf_tai64_range_error_exn);
     CAMLparam0();
     CAMLlocal1(exnVal);
     
-    if (!cf_tai64_label_error_exn)
+    if (!cf_tai64_label_error_exn) {
         cf_tai64_label_error_exn = caml_named_value("Cf_tai64.Label_error");
-    
-    if (!cf_tai64_label_error_exn)
-        invalid_argument
-           ("Cf_tai64: Label_error exception unavailable in primitive.");
+        if (!cf_tai64_label_error_exn)
+            invalid_argument("Cf_tai64: Label_error exception unavailable in \
+                primitive.");
+    }
     
     exnVal = alloc_small(1, 0);
     Store_field(exnVal, 0, *cf_tai64_label_error_exn);
 {
     CAMLparam0();
     CAMLlocal1(result);
-    (void) unit;
-    
     Cf_tai64_t x;
     
+    (void) unit;
     cf_tai64_update(&x);
     result = cf_tai64_alloc(&x);
     
 {
     CAMLparam1(v);
     CAMLlocal1(result);
-    
     double x;
     uint64 epoch;
     
 {
     CAMLparam1(v);
     CAMLlocal1(result);
-    
     Cf_tai64_t tai64;
     int i;
     uint64 x;
 {
     CAMLparam1(v);
     CAMLlocal1(result);
-    
     uint64 x;
     int i;
     
 {
     CAMLparam2(tai64Val, dtVal);
     CAMLlocal1(result);
-    
     Cf_tai64_t x;
     
     x.s = Cf_tai64_val(tai64Val)->s + Int_val(dtVal);
 {
     CAMLparam2(tai64Val, dt32Val);
     CAMLlocal1(result);
-    
     Cf_tai64_t x;
     
     x.s = Cf_tai64_val(tai64Val)->s + Int32_val(dt32Val);
 {
     CAMLparam2(tai64Val, dt64Val);
     CAMLlocal1(result);
-    
     Cf_tai64_t x;
     int64 dt64;
     
 CAMLprim value cf_tai64_sub(value v1, value v2)
 {
     CAMLparam2(v1, v2);
+    int64 dt;
     
-    int64 dt;
     dt = Cf_tai64_val(v1)->s - Cf_tai64_val(v2)->s;
     
     CAMLreturn(copy_int64(dt));