Mercurial Mercurial > upstream > oracle > userland-gate / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
components/tcl/tcl/patches/3.goto-label.patch
author Mike Sullivan <Mike.Sullivan@Oracle.COM>
Wed, 29 Aug 2012 11:05:56 -0700
changeset 957 255465c5756f
parent 225 2f3e03a69313
permissions -rw-r--r--
Close of build 04.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
225
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
     1
 
--- tcl8.5.9/libtommath/bn_mp_div.c.orig	Tue Apr 26 08:26:45 2011
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
     2
 
+++ tcl8.5.9/libtommath/bn_mp_div.c	Tue Apr 26 08:26:45 2011
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
     3
 
@@ -53,7 +53,7 @@
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
     4
 
       ((res = mp_abs(b, &tb)) != MP_OKAY) ||
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
     5
 
       ((res = mp_mul_2d(&tb, n, &tb)) != MP_OKAY) ||
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
     6
 
       ((res = mp_mul_2d(&tq, n, &tq)) != MP_OKAY)) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
     7
 
-      goto LBL_ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
     8
 
+      goto LBL_ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
     9
 
   }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    10
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    11
 
   while (n-- >= 0) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    12
 
@@ -60,12 +60,12 @@
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    13
 
      if (mp_cmp(&tb, &ta) != MP_GT) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    14
 
         if (((res = mp_sub(&ta, &tb, &ta)) != MP_OKAY) ||
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    15
 
             ((res = mp_add(&q, &tq, &q)) != MP_OKAY)) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    16
 
-           goto LBL_ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    17
 
+           goto LBL_ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    18
 
         }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    19
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    20
 
      if (((res = mp_div_2d(&tb, 1, &tb, NULL)) != MP_OKAY) ||
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    21
 
          ((res = mp_div_2d(&tq, 1, &tq, NULL)) != MP_OKAY)) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    22
 
-           goto LBL_ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    23
 
+           goto LBL_ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    24
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    25
 
   }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    26
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    27
 
@@ -80,7 +80,7 @@
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    28
 
      mp_exch(d, &ta);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    29
 
      d->sign = (mp_iszero(d) == MP_YES) ? MP_ZPOS : n;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    30
 
   }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    31
 
-LBL_ERR:
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    32
 
+LBL_ERR_label:
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    33
 
    mp_clear_multi(&ta, &tb, &tq, &q, NULL);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    34
 
    return res;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    35
 
 }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    36
 
--- tcl8.5.9/libtommath/bn_mp_karatsuba_mul.c.orig	Tue Apr 26 08:26:45 2011
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    37
 
+++ tcl8.5.9/libtommath/bn_mp_karatsuba_mul.c	Tue Apr 26 08:26:45 2011
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    38
 
@@ -60,7 +60,7 @@
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    39
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    40
 
   /* init copy all the temps */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    41
 
   if (mp_init_size (&x0, B) != MP_OKAY)
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    42
 
-    goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    43
 
+    goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    44
 
   if (mp_init_size (&x1, a->used - B) != MP_OKAY)
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    45
 
     goto X0;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    46
 
   if (mp_init_size (&y0, B) != MP_OKAY)
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    47
 
@@ -157,7 +157,7 @@
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    48
 
 Y0:mp_clear (&y0);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    49
 
 X1:mp_clear (&x1);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    50
 
 X0:mp_clear (&x0);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    51
 
-ERR:
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    52
 
+ERR_label:
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    53
 
   return err;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    54
 
 }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    55
 
 #endif
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    56
 
--- tcl8.5.9/libtommath/bn_mp_karatsuba_sqr.c.orig	Tue Apr 26 08:26:45 2011
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    57
 
+++ tcl8.5.9/libtommath/bn_mp_karatsuba_sqr.c	Tue Apr 26 08:26:45 2011
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    58
 
@@ -37,7 +37,7 @@
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    59
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    60
 
   /* init copy all the temps */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    61
 
   if (mp_init_size (&x0, B) != MP_OKAY)
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    62
 
-    goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    63
 
+    goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    64
 
   if (mp_init_size (&x1, a->used - B) != MP_OKAY)
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    65
 
     goto X0;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    66
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    67
 
@@ -111,7 +111,7 @@
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    68
 
 T1:mp_clear (&t1);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    69
 
 X1:mp_clear (&x1);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    70
 
 X0:mp_clear (&x0);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    71
 
-ERR:
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    72
 
+ERR_label:
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    73
 
   return err;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    74
 
 }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    75
 
 #endif
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    76
 
--- tcl8.5.9/libtommath/bn_mp_toom_mul.c.orig	Tue Apr 26 08:26:45 2011
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    77
 
+++ tcl8.5.9/libtommath/bn_mp_toom_mul.c	Tue Apr 26 08:26:45 2011
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    78
 
@@ -39,124 +39,124 @@
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    79
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    80
 
     /* a = a2 * B**2 + a1 * B + a0 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    81
 
     if ((res = mp_mod_2d(a, DIGIT_BIT * B, &a0)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    82
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    83
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    84
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    85
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    86
 
     if ((res = mp_copy(a, &a1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    87
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    88
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    89
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    90
 
     mp_rshd(&a1, B);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    91
 
     mp_mod_2d(&a1, DIGIT_BIT * B, &a1);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    92
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    93
 
     if ((res = mp_copy(a, &a2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    94
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    95
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    96
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    97
 
     mp_rshd(&a2, B*2);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    98
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
    99
 
     /* b = b2 * B**2 + b1 * B + b0 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   100
 
     if ((res = mp_mod_2d(b, DIGIT_BIT * B, &b0)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   101
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   102
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   103
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   104
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   105
 
     if ((res = mp_copy(b, &b1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   106
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   107
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   108
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   109
 
     mp_rshd(&b1, B);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   110
 
     mp_mod_2d(&b1, DIGIT_BIT * B, &b1);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   111
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   112
 
     if ((res = mp_copy(b, &b2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   113
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   114
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   115
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   116
 
     mp_rshd(&b2, B*2);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   117
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   118
 
     /* w0 = a0*b0 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   119
 
     if ((res = mp_mul(&a0, &b0, &w0)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   120
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   121
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   122
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   123
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   124
 
     /* w4 = a2 * b2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   125
 
     if ((res = mp_mul(&a2, &b2, &w4)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   126
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   127
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   128
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   129
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   130
 
     /* w1 = (a2 + 2(a1 + 2a0))(b2 + 2(b1 + 2b0)) */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   131
 
     if ((res = mp_mul_2(&a0, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   132
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   133
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   134
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   135
 
     if ((res = mp_add(&tmp1, &a1, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   136
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   137
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   138
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   139
 
     if ((res = mp_mul_2(&tmp1, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   140
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   141
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   142
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   143
 
     if ((res = mp_add(&tmp1, &a2, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   144
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   145
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   146
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   147
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   148
 
     if ((res = mp_mul_2(&b0, &tmp2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   149
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   150
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   151
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   152
 
     if ((res = mp_add(&tmp2, &b1, &tmp2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   153
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   154
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   155
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   156
 
     if ((res = mp_mul_2(&tmp2, &tmp2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   157
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   158
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   159
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   160
 
     if ((res = mp_add(&tmp2, &b2, &tmp2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   161
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   162
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   163
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   164
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   165
 
     if ((res = mp_mul(&tmp1, &tmp2, &w1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   166
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   167
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   168
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   169
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   170
 
     /* w3 = (a0 + 2(a1 + 2a2))(b0 + 2(b1 + 2b2)) */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   171
 
     if ((res = mp_mul_2(&a2, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   172
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   173
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   174
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   175
 
     if ((res = mp_add(&tmp1, &a1, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   176
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   177
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   178
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   179
 
     if ((res = mp_mul_2(&tmp1, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   180
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   181
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   182
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   183
 
     if ((res = mp_add(&tmp1, &a0, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   184
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   185
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   186
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   187
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   188
 
     if ((res = mp_mul_2(&b2, &tmp2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   189
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   190
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   191
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   192
 
     if ((res = mp_add(&tmp2, &b1, &tmp2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   193
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   194
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   195
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   196
 
     if ((res = mp_mul_2(&tmp2, &tmp2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   197
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   198
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   199
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   200
 
     if ((res = mp_add(&tmp2, &b0, &tmp2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   201
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   202
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   203
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   204
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   205
 
     if ((res = mp_mul(&tmp1, &tmp2, &w3)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   206
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   207
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   208
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   209
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   210
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   211
 
     /* w2 = (a2 + a1 + a0)(b2 + b1 + b0) */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   212
 
     if ((res = mp_add(&a2, &a1, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   213
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   214
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   215
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   216
 
     if ((res = mp_add(&tmp1, &a0, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   217
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   218
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   219
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   220
 
     if ((res = mp_add(&b2, &b1, &tmp2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   221
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   222
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   223
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   224
 
     if ((res = mp_add(&tmp2, &b0, &tmp2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   225
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   226
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   227
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   228
 
     if ((res = mp_mul(&tmp1, &tmp2, &w2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   229
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   230
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   231
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   232
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   233
 
     /* now solve the matrix
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   234
 
@@ -173,104 +173,104 @@
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   235
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   236
 
      /* r1 - r4 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   237
 
      if ((res = mp_sub(&w1, &w4, &w1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   238
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   239
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   240
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   241
 
      /* r3 - r0 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   242
 
      if ((res = mp_sub(&w3, &w0, &w3)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   243
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   244
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   245
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   246
 
      /* r1/2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   247
 
      if ((res = mp_div_2(&w1, &w1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   248
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   249
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   250
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   251
 
      /* r3/2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   252
 
      if ((res = mp_div_2(&w3, &w3)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   253
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   254
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   255
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   256
 
      /* r2 - r0 - r4 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   257
 
      if ((res = mp_sub(&w2, &w0, &w2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   258
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   259
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   260
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   261
 
      if ((res = mp_sub(&w2, &w4, &w2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   262
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   263
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   264
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   265
 
      /* r1 - r2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   266
 
      if ((res = mp_sub(&w1, &w2, &w1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   267
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   268
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   269
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   270
 
      /* r3 - r2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   271
 
      if ((res = mp_sub(&w3, &w2, &w3)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   272
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   273
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   274
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   275
 
      /* r1 - 8r0 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   276
 
      if ((res = mp_mul_2d(&w0, 3, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   277
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   278
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   279
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   280
 
      if ((res = mp_sub(&w1, &tmp1, &w1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   281
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   282
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   283
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   284
 
      /* r3 - 8r4 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   285
 
      if ((res = mp_mul_2d(&w4, 3, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   286
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   287
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   288
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   289
 
      if ((res = mp_sub(&w3, &tmp1, &w3)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   290
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   291
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   292
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   293
 
      /* 3r2 - r1 - r3 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   294
 
      if ((res = mp_mul_d(&w2, 3, &w2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   295
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   296
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   297
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   298
 
      if ((res = mp_sub(&w2, &w1, &w2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   299
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   300
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   301
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   302
 
      if ((res = mp_sub(&w2, &w3, &w2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   303
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   304
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   305
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   306
 
      /* r1 - r2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   307
 
      if ((res = mp_sub(&w1, &w2, &w1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   308
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   309
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   310
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   311
 
      /* r3 - r2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   312
 
      if ((res = mp_sub(&w3, &w2, &w3)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   313
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   314
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   315
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   316
 
      /* r1/3 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   317
 
      if ((res = mp_div_3(&w1, &w1, NULL)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   318
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   319
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   320
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   321
 
      /* r3/3 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   322
 
      if ((res = mp_div_3(&w3, &w3, NULL)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   323
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   324
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   325
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   326
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   327
 
      /* at this point shift W[n] by B*n */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   328
 
      if ((res = mp_lshd(&w1, 1*B)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   329
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   330
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   331
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   332
 
      if ((res = mp_lshd(&w2, 2*B)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   333
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   334
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   335
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   336
 
      if ((res = mp_lshd(&w3, 3*B)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   337
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   338
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   339
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   340
 
      if ((res = mp_lshd(&w4, 4*B)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   341
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   342
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   343
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   344
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   345
 
      if ((res = mp_add(&w0, &w1, c)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   346
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   347
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   348
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   349
 
      if ((res = mp_add(&w2, &w3, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   350
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   351
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   352
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   353
 
      if ((res = mp_add(&w4, &tmp1, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   354
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   355
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   356
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   357
 
      if ((res = mp_add(&tmp1, c, c)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   358
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   359
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   360
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   361
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   362
 
-ERR:
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   363
 
+ERR_label:
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   364
 
      mp_clear_multi(&w0, &w1, &w2, &w3, &w4,
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   365
 
                     &a0, &a1, &a2, &b0, &b1,
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   366
 
                     &b2, &tmp1, &tmp2, NULL);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   367
 
--- tcl8.5.9/libtommath/bn_mp_toom_sqr.c.orig	Tue Apr 26 08:26:45 2011
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   368
 
+++ tcl8.5.9/libtommath/bn_mp_toom_sqr.c	Tue Apr 26 08:26:45 2011
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   369
 
@@ -32,76 +32,76 @@
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   370
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   371
 
     /* a = a2 * B**2 + a1 * B + a0 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   372
 
     if ((res = mp_mod_2d(a, DIGIT_BIT * B, &a0)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   373
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   374
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   375
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   376
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   377
 
     if ((res = mp_copy(a, &a1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   378
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   379
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   380
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   381
 
     mp_rshd(&a1, B);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   382
 
     mp_mod_2d(&a1, DIGIT_BIT * B, &a1);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   383
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   384
 
     if ((res = mp_copy(a, &a2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   385
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   386
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   387
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   388
 
     mp_rshd(&a2, B*2);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   389
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   390
 
     /* w0 = a0*a0 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   391
 
     if ((res = mp_sqr(&a0, &w0)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   392
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   393
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   394
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   395
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   396
 
     /* w4 = a2 * a2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   397
 
     if ((res = mp_sqr(&a2, &w4)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   398
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   399
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   400
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   401
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   402
 
     /* w1 = (a2 + 2(a1 + 2a0))**2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   403
 
     if ((res = mp_mul_2(&a0, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   404
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   405
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   406
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   407
 
     if ((res = mp_add(&tmp1, &a1, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   408
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   409
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   410
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   411
 
     if ((res = mp_mul_2(&tmp1, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   412
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   413
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   414
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   415
 
     if ((res = mp_add(&tmp1, &a2, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   416
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   417
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   418
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   419
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   420
 
     if ((res = mp_sqr(&tmp1, &w1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   421
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   422
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   423
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   424
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   425
 
     /* w3 = (a0 + 2(a1 + 2a2))**2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   426
 
     if ((res = mp_mul_2(&a2, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   427
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   428
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   429
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   430
 
     if ((res = mp_add(&tmp1, &a1, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   431
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   432
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   433
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   434
 
     if ((res = mp_mul_2(&tmp1, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   435
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   436
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   437
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   438
 
     if ((res = mp_add(&tmp1, &a0, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   439
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   440
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   441
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   442
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   443
 
     if ((res = mp_sqr(&tmp1, &w3)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   444
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   445
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   446
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   447
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   448
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   449
 
     /* w2 = (a2 + a1 + a0)**2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   450
 
     if ((res = mp_add(&a2, &a1, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   451
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   452
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   453
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   454
 
     if ((res = mp_add(&tmp1, &a0, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   455
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   456
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   457
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   458
 
     if ((res = mp_sqr(&tmp1, &w2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   459
 
-       goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   460
 
+       goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   461
 
     }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   462
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   463
 
     /* now solve the matrix
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   464
 
@@ -117,104 +117,104 @@
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   465
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   466
 
      /* r1 - r4 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   467
 
      if ((res = mp_sub(&w1, &w4, &w1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   468
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   469
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   470
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   471
 
      /* r3 - r0 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   472
 
      if ((res = mp_sub(&w3, &w0, &w3)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   473
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   474
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   475
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   476
 
      /* r1/2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   477
 
      if ((res = mp_div_2(&w1, &w1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   478
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   479
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   480
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   481
 
      /* r3/2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   482
 
      if ((res = mp_div_2(&w3, &w3)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   483
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   484
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   485
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   486
 
      /* r2 - r0 - r4 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   487
 
      if ((res = mp_sub(&w2, &w0, &w2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   488
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   489
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   490
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   491
 
      if ((res = mp_sub(&w2, &w4, &w2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   492
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   493
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   494
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   495
 
      /* r1 - r2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   496
 
      if ((res = mp_sub(&w1, &w2, &w1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   497
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   498
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   499
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   500
 
      /* r3 - r2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   501
 
      if ((res = mp_sub(&w3, &w2, &w3)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   502
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   503
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   504
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   505
 
      /* r1 - 8r0 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   506
 
      if ((res = mp_mul_2d(&w0, 3, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   507
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   508
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   509
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   510
 
      if ((res = mp_sub(&w1, &tmp1, &w1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   511
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   512
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   513
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   514
 
      /* r3 - 8r4 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   515
 
      if ((res = mp_mul_2d(&w4, 3, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   516
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   517
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   518
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   519
 
      if ((res = mp_sub(&w3, &tmp1, &w3)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   520
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   521
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   522
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   523
 
      /* 3r2 - r1 - r3 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   524
 
      if ((res = mp_mul_d(&w2, 3, &w2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   525
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   526
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   527
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   528
 
      if ((res = mp_sub(&w2, &w1, &w2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   529
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   530
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   531
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   532
 
      if ((res = mp_sub(&w2, &w3, &w2)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   533
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   534
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   535
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   536
 
      /* r1 - r2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   537
 
      if ((res = mp_sub(&w1, &w2, &w1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   538
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   539
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   540
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   541
 
      /* r3 - r2 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   542
 
      if ((res = mp_sub(&w3, &w2, &w3)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   543
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   544
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   545
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   546
 
      /* r1/3 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   547
 
      if ((res = mp_div_3(&w1, &w1, NULL)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   548
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   549
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   550
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   551
 
      /* r3/3 */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   552
 
      if ((res = mp_div_3(&w3, &w3, NULL)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   553
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   554
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   555
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   556
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   557
 
      /* at this point shift W[n] by B*n */
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   558
 
      if ((res = mp_lshd(&w1, 1*B)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   559
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   560
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   561
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   562
 
      if ((res = mp_lshd(&w2, 2*B)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   563
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   564
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   565
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   566
 
      if ((res = mp_lshd(&w3, 3*B)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   567
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   568
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   569
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   570
 
      if ((res = mp_lshd(&w4, 4*B)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   571
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   572
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   573
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   574
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   575
 
      if ((res = mp_add(&w0, &w1, b)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   576
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   577
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   578
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   579
 
      if ((res = mp_add(&w2, &w3, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   580
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   581
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   582
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   583
 
      if ((res = mp_add(&w4, &tmp1, &tmp1)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   584
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   585
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   586
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   587
 
      if ((res = mp_add(&tmp1, b, b)) != MP_OKAY) {
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   588
 
-        goto ERR;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   589
 
+        goto ERR_label;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   590
 
      }
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   591
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   592
 
-ERR:
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   593
 
+ERR_label:
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   594
 
      mp_clear_multi(&w0, &w1, &w2, &w3, &w4, &a0, &a1, &a2, &tmp1, NULL);
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   595
 
      return res;
2f3e03a69313 7040199 Update tcl to 8.5.9
Srinivasa Sarva <srinivasa.sarva@oracle.com>
parents:
diff changeset 
   596
 
 }
upstream/oracle/userland-gate