-rw-r--r-- 553 lib25519-20260614/crypto_nP/montgomery25519/arm64-uma9l/mont25519.c raw
#include "randombytes.h"
#include "crypto_nP.h"
#include "fe25519.h"

#define mladder CRYPTO_SHARED_NAMESPACE(mladder)
extern void mladder(fe25519_9l_dense *,const unsigned char *,const unsigned char *);

void crypto_nP(unsigned char *r, const unsigned char *s, const unsigned char *p) {

  	unsigned char e[32],f[32];
  	int i;
  	fe25519 u;
	fe25519_9l_dense t[2];
  	
  	for(i=0;i<32;i++) {e[i] = s[i]; f[i] = p[i];}
  
  	mladder(t,f,e);
  	fe25519_invert(t+1,t+1);
  	fe25519_mul(t,t,t+1);
  	fe25519_9l_dense_to_4l(&u,t);
  	fe25519_pack(r,&u);
}