diff options
Diffstat (limited to 'src/gen/field.c')
| -rw-r--r-- | src/gen/field.c | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/src/gen/field.c b/src/gen/field.c index 020927c..cc95bda 100644 --- a/src/gen/field.c +++ b/src/gen/field.c @@ -52,17 +52,17 @@ GENERATOR(field_gen_input) { } GEN e1 = input_short("e1:"); - if (equalii(e1, gen_m1)) { + if (equalii(e1, gen_m1) || gcmp(e1, m) > 0) { avma = ltop; return 0; } GEN e2 = input_short("e2:"); - if (equalii(e2, gen_m1)) { + if (equalii(e2, gen_m1) || gcmp(e2, m) > 0) { avma = ltop; return 0; } GEN e3 = input_short("e3:"); - if (equalii(e3, gen_m1)) { + if (equalii(e3, gen_m1) || gcmp(e3, m) > 0) { avma = ltop; return 0; } @@ -173,3 +173,9 @@ GEN field_ielement(GEN field, GEN in) { return gen_m1; /* NOT REACHABLE */ } } + +void field_quit(void) { + if (field && isclone(field)) { + gunclone(field); + } +} |