src/gp.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

#include "gp.h"

void init_gp(void) /* void */
{
	pari_sp ltop = avma;
	avma = ltop;
	return;
}

/*
* ecgen, tool for generating Elliptic curve domain parameters
* Copyright (C) 2017  J08nY
*/

/*
\r gp/utils
\r gp/invalid
*/

GEN test(void) /* int */
{
	pari_sp ltop = avma;
	GEN e = gen_0; /* ell */
	GEN p = gen_0;
	GEN i = gen_0, p1 = gen_0; /* int */
	p = genrand(e);
	p1 = i = gcopy(gel(p, 1));
	p1 = gerepilecopy(ltop, p1);
	return p1;
}