Commit 9ac01137 authored by Peter Bruin's avatar Peter Bruin

remove typechecking

parent 687c3dd4
......@@ -31,10 +31,6 @@ multiply_values_Fl (GEN s, GEN t, unsigned long p) {
int i;
GEN result;
if (typ (s) != t_VECSMALL
|| typ (t) != t_VECSMALL
|| lg (s) != lg (t))
pari_err_TYPE2("multiply_values_Fl", s, t);
result = cgetg (lg (s), t_VECSMALL);
for (i = 1; i < lg (s); i++)
result[i] = Fl_mul (s[i], t[i], p);
......@@ -46,10 +42,6 @@ multiply_values_Flxq (GEN s, GEN t, unsigned long p, GEN T) {
int i;
GEN result;
if (typ (s) != t_COL
|| typ (t) != t_COL
|| lg (s) != lg (t))
pari_err_TYPE2("multiply_values_Flxq", s, t);
result = cgetg (lg (s), t_COL);
for (i = 1; i < lg (s); i++)
gel (result, i) = Flxq_mul (gel (s, i), gel (t, i), T, p);
......@@ -62,10 +54,6 @@ multiply_power_series_Fl (GEN s, GEN t, unsigned long p) {
GEN s1, t1, tmp, result;
pari_sp av;
if (typ (s) != t_VECSMALL
|| typ (t) != t_VECSMALL
|| lg (t) != l)
pari_err_TYPE2("multiply_power_series_Fl", s, t);
while (ls > 1 && s[ls - 1] == 0)
ls--;
while (lt > 1 && t[lt - 1] == 0)
......@@ -96,10 +84,6 @@ multiply_power_series_Flxq (GEN s, GEN t, unsigned long p, GEN T) {
GEN s1, t1, tmp, result;
pari_sp av;
if (typ (s) != t_COL
|| typ (t) != t_COL
|| lg (t) != l)
pari_err_TYPE2("multiply_power_series_Flxq", s, t);
result = cgetg(l, t_COL);
av = avma;
s1 = cgetg(l + 1, t_POL);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment