X-Git-Url: https://bearssl.org/gitweb//home/git/?p=BearSSL;a=blobdiff_plain;f=src%2Fint%2Fi15_fmont.c;fp=src%2Fint%2Fi15_ext1.c;h=3450b7237bc4bee5b993bb8012b5789e55856acc;hp=a99ac1a95ccb27beec89a22124e7364c2403d2b9;hb=2f454aad577ae53798935cc32438a2d3f02ba31f;hpb=bd3036844bd20b2b8d7bce7fee5ad010ce401915

diff --git a/src/int/i15_ext1.c b/src/int/i15_fmont.c
similarity index 61%
rename from src/int/i15_ext1.c
rename to src/int/i15_fmont.c
index a99ac1a..3450b72 100644
--- a/src/int/i15_ext1.c
+++ b/src/int/i15_fmont.c
@@ -24,83 +24,6 @@
 
 #include "inner.h"
 
-/*
- * This file contains some additional functions for "i15" big integers.
- * These functions are needed to support ECDSA.
- */
-
-/* see inner.h */
-void
-br_i15_rshift(uint16_t *x, int count)
-{
-	size_t u, len;
-	unsigned r;
-
-	len = (x[0] + 15) >> 4;
-	if (len == 0) {
-		return;
-	}
-	r = x[1] >> count;
-	for (u = 2; u <= len; u ++) {
-		unsigned w;
-
-		w = x[u];
-		x[u - 1] = ((w << (15 - count)) | r) & 0x7FFF;
-		r = w >> count;
-	}
-	x[len] = r;
-}
-
-/* see inner.h */
-uint32_t
-br_i15_bit_length(uint16_t *x, size_t xlen)
-{
-	uint32_t tw, twk;
-
-	tw = 0;
-	twk = 0;
-	while (xlen -- > 0) {
-		uint32_t w, c;
-
-		c = EQ(tw, 0);
-		w = x[xlen];
-		tw = MUX(c, w, tw);
-		twk = MUX(c, (uint32_t)xlen, twk);
-	}
-	return (twk << 4) + BIT_LENGTH(tw);
-}
-
-/* see inner.h */
-void
-br_i15_decode(uint16_t *x, const void *src, size_t len)
-{
-	const unsigned char *buf;
-	size_t v;
-	uint32_t acc;
-	int acc_len;
-
-	buf = src;
-	v = 1;
-	acc = 0;
-	acc_len = 0;
-	while (len -- > 0) {
-		uint32_t b;
-
-		b = buf[len];
-		acc |= (b << acc_len);
-		acc_len += 8;
-		if (acc_len >= 15) {
-			x[v ++] = acc & 0x7FFF;
-			acc_len -= 15;
-			acc >>= 15;
-		}
-	}
-	if (acc_len != 0) {
-		x[v ++] = acc;
-	}
-	x[0] = br_i15_bit_length(x + 1, v - 1);
-}
-
 /* see inner.h */
 void
 br_i15_from_monty(uint16_t *x, const uint16_t *m, uint16_t m0i)