From b4ec104b27bae65f75c61c899e567ce2ce30ecd9 Mon Sep 17 00:00:00 2001
From: "Diego F. Aranha" <dfaranha@gmail.com>
Date: Tue, 13 Feb 2024 23:41:17 +0100
Subject: [PATCH] Fix for k=1 pairings.

---
 src/cp/relic_cp_pcdel.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/cp/relic_cp_pcdel.c b/src/cp/relic_cp_pcdel.c
index ae0428d30..ef86d6eec 100644
--- a/src/cp/relic_cp_pcdel.c
+++ b/src/cp/relic_cp_pcdel.c
@@ -511,10 +511,14 @@ int cp_ampub_gen(bn_t r, g1_t u1, g2_t u2, bn_t v2, gt_t e, const bn_t c,
 			g1_mul_gen(u1, t1);
 			g2_mul_gen(u2, t2);
 			/* Compute gamma = e(U1, U2). */
-			gt_get_gen(e);
 			bn_mul(t1, t1, t2);
 			bn_mod(t1, t1, n);
+#if FP_PRIME < 1536
+			gt_get_gen(e);
 			gt_exp(e, e, t1);
+#else
+			pc_map(e, u1, u2);
+#endif
 		} else {
 			bn_rand_mod(t1, n);
 			bn_mod_inv(t2, t1, n);