src/math/point.c


1
2
3
4
5
6
7
8
9
10
11
12

/*
 * ecgen, tool for generating Elliptic curve domain parameters
 * Copyright (C) 2017 J08nY
 */
#include "point.h"

point_t *gerepile_point(pari_sp ltop, point_t *point) {
	if (point) {
		gerepileall(ltop, 2, &point->point, &point->order);
	}
	return point;
}