Commit 7c1e3174 authored by Peter Bruin's avatar Peter Bruin

fix long/ulong confusion

parent c6f6cc0e
......@@ -23,7 +23,7 @@ indexcompl(GEN v, long n) {
return w;
}
static ulong
static long
Flm_echelon_gauss(GEN A, GEN *R, GEN *C, ulong p) {
long i, j, k, m = nbrows(A), n = lg(A) - 1, pr, pc, u, v;
......@@ -59,7 +59,7 @@ Flm_echelon_gauss(GEN A, GEN *R, GEN *C, ulong p) {
}
/* column echelon form */
ulong
long
Flm_echelon(GEN A, GEN *R, GEN *C, ulong p) {
long i, j, j1, j2, m = nbrows(A), n = lg(A) - 1, n1, r, r1, r2;
GEN A1, A2, R1, R1c, C1, R2, C2;
......
ulong Flm_echelon(GEN A, GEN *R, GEN *C, ulong p);
long Flm_echelon(GEN A, GEN *R, GEN *C, ulong p);
......@@ -19,7 +19,7 @@ indexcompl(GEN v, long n) {
return w;
}
static ulong
static long
FlxqM_echelon_gauss(GEN A, GEN *R, GEN *C, GEN T, ulong p) {
long i, j, k, m = nbrows(A), n = lg(A) - 1, pr, pc;
pari_sp av;
......@@ -62,7 +62,7 @@ FlxqM_echelon_gauss(GEN A, GEN *R, GEN *C, GEN T, ulong p) {
}
/* column echelon form */
ulong
long
FlxqM_echelon(GEN A, GEN *R, GEN *C, GEN T, ulong p) {
long i, j, j1, j2, m = nbrows(A), n = lg(A) - 1, n1, r, r1, r2;
GEN A1, A2, R1, R1c, C1, R2, C2;
......
ulong FlxqM_echelon(GEN A, GEN *R, GEN *C, GEN T, ulong p);
long FlxqM_echelon(GEN A, GEN *R, GEN *C, GEN T, ulong p);
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