~mdw
/
catacomb
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Keep numbers positive.
[catacomb]
/
calc
/
ecp.cal
diff --git
a/calc/ecp.cal
b/calc/ecp.cal
index
3834359
..
10ed9e4
100644
(file)
--- a/
calc/ecp.cal
+++ b/
calc/ecp.cal
@@
-1,6
+1,6
@@
/* -*-apcalc-*-
*
/* -*-apcalc-*-
*
- * $Id: ecp.cal,v 1.
3 2004/03/23 15:19:32
mdw Exp $
+ * $Id: ecp.cal,v 1.
4 2004/04/01 13:37:07
mdw Exp $
*
* Testbed for elliptic curve arithmetic over prime fields
*
*
* Testbed for elliptic curve arithmetic over prime fields
*
@@
-30,6
+30,9
@@
/*----- Revision history --------------------------------------------------*
*
* $Log: ecp.cal,v $
/*----- Revision history --------------------------------------------------*
*
* $Log: ecp.cal,v $
+ * Revision 1.4 2004/04/01 13:37:07 mdw
+ * Keep numbers positive.
+ *
* Revision 1.3 2004/03/23 15:19:32 mdw
* Test elliptic curves more thoroughly.
*
* Revision 1.3 2004/03/23 15:19:32 mdw
* Test elliptic curves more thoroughly.
*
@@
-126,7
+129,7
@@
define ecp_pt_neg(a)
{
local obj ecp_pt d;
d.x = a.x;
{
local obj ecp_pt d;
d.x = a.x;
- d.y =
-
a.y;
+ d.y =
a.e.p -
a.y;
d.e = a.e;
return (d);
}
d.e = a.e;
return (d);
}