diff options
author | dos-reis <gdr@axiomatics.org> | 2009-05-29 14:18:26 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-05-29 14:18:26 +0000 |
commit | a17c2d47d4df5af5ef5e624ac6c5636b2741dd4a (patch) | |
tree | 225c59abef532441c688540ba0771937558b33ee /src | |
parent | bcf4deb1f4de85c07a6c91d2fb59a77545e317b0 (diff) | |
download | open-axiom-a17c2d47d4df5af5ef5e624ac6c5636b2741dd4a.tar.gz |
Fix SF/2798220
* algebra/fmod.spad.pamphlet (IntegerMod): Define before?
* algebra/ffp.spad.pamphlet (FiniteFieldExtensionByPolynomial):
Likewise.
* algebra/pf.spad.pamphlet (InnerPrimeField): Likewise.
* testsuite/interpreter/sf-2798220.input: New.
Diffstat (limited to 'src')
-rw-r--r-- | src/ChangeLog | 9 | ||||
-rw-r--r-- | src/algebra/ffp.spad.pamphlet | 3 | ||||
-rw-r--r-- | src/algebra/fmod.spad.pamphlet | 6 | ||||
-rw-r--r-- | src/algebra/pf.spad.pamphlet | 3 | ||||
-rw-r--r-- | src/testsuite/interpreter/sf-2798220.input | 3 |
5 files changed, 21 insertions, 3 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 198e4647..7fe1b652 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,12 @@ +2009-05-29 Gabriel Dos Reis <gdr@cs.tamu.edu> + + Fix SF/2798220 + * algebra/fmod.spad.pamphlet (IntegerMod): Define before? + * algebra/ffp.spad.pamphlet (FiniteFieldExtensionByPolynomial): + Likewise. + * algebra/pf.spad.pamphlet (InnerPrimeField): Likewise. + * testsuite/interpreter/sf-2798220.input: New. + 2009-05-28 Gabriel Dos Reis <gdr@cs.tamu.edu> * interp/compiler.boot (getSuccessEnvironment): Tidy. diff --git a/src/algebra/ffp.spad.pamphlet b/src/algebra/ffp.spad.pamphlet index 67b32b90..c5832f93 100644 --- a/src/algebra/ffp.spad.pamphlet +++ b/src/algebra/ffp.spad.pamphlet @@ -35,7 +35,7 @@ )abbrev domain FFP FiniteFieldExtensionByPolynomial ++ Authors: R.Sutor, J. Grabmeier, O. Gschnitzer, A. Scheerhorn ++ Date Created: -++ Date Last Updated: 31 March 1991 +++ Date Last Updated: May 29, 2009 ++ Basic Operations: ++ Related Constructors: ++ Also See: FiniteFieldCyclicGroupExtensionByPolynomial, @@ -263,6 +263,7 @@ FiniteFieldExtensionByPolynomial(GF:FiniteFieldCategory,_ characteristic() == characteristic()$GF + before?(x,y) == before?(x,y)$Rep @ \section{domain FFX FiniteFieldExtension} <<domain FFX FiniteFieldExtension>>= diff --git a/src/algebra/fmod.spad.pamphlet b/src/algebra/fmod.spad.pamphlet index 5140356b..47182caf 100644 --- a/src/algebra/fmod.spad.pamphlet +++ b/src/algebra/fmod.spad.pamphlet @@ -14,7 +14,7 @@ )abbrev domain ZMOD IntegerMod ++ Author: ++ Date Created: -++ Date Last Updated: +++ Date Last Updated: May 29, 2009 ++ Basic Functions: ++ Related Constructors: ++ Also See: @@ -66,6 +66,8 @@ IntegerMod(p:PositiveInteger): (c1, c2, g) := extendedEuclidean(x, q)$Rep not one? g => "failed" positiveRemainder(c1, q) + + before?(x,y) == before?(x,y)$Rep else Rep:= Integer @@ -94,6 +96,8 @@ IntegerMod(p:PositiveInteger): (c1, c2, g) := extendedEuclidean(x, p)$Rep not one? g => "failed" positiveRemainder(c1, p) + + before?(x,y) == before?(x,y)$Rep @ \section{License} diff --git a/src/algebra/pf.spad.pamphlet b/src/algebra/pf.spad.pamphlet index 21b8979a..611fbcff 100644 --- a/src/algebra/pf.spad.pamphlet +++ b/src/algebra/pf.spad.pamphlet @@ -16,7 +16,7 @@ -- This domain does not check, PrimeField does. ++ Authors: N.N., J.Grabmeier, A.Scheerhorn ++ Date Created: ?, November 1990, 26.03.1991 -++ Date Last Updated: 12 April 1991 +++ Date Last Updated: May 29, 2009 ++ Basic Operations: ++ Related Constructors: PrimeField ++ Also See: @@ -191,6 +191,7 @@ InnerPrimeField(p:PositiveInteger): Exports == Implementation where charthRoot(x: %): % == x + before?(x,y) == before?(convert x, convert y)$I @ \section{domain PF PrimeField} <<domain PF PrimeField>>= diff --git a/src/testsuite/interpreter/sf-2798220.input b/src/testsuite/interpreter/sf-2798220.input new file mode 100644 index 00000000..5cc57d75 --- /dev/null +++ b/src/testsuite/interpreter/sf-2798220.input @@ -0,0 +1,3 @@ +-- Issue SF/2798220: Missing before? (%,%) -> Boolean from PrimeField +U : POLY(PF(19)) := 3*X**4+2*X**2+15*X+8 + |