From b0e210a02b8576828ac64e8b97bd565fd28c8748 Mon Sep 17 00:00:00 2001 From: Mattias Andrée Date: Fri, 6 May 2016 13:48:43 +0200 Subject: Make zmul and zsqr (calls low-level functions) inline MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Mattias Andrée --- zahl/inlines.h | 25 +++++++++++++++++++++++++ 1 file changed, 25 insertions(+) (limited to 'zahl') diff --git a/zahl/inlines.h b/zahl/inlines.h index 9e196f8..8f6b490 100644 --- a/zahl/inlines.h +++ b/zahl/inlines.h @@ -266,3 +266,28 @@ zsave(z_t a, void *buffer) } return sizeof(int) + sizeof(size_t) + (zzero(a) ? 0 : a->used * sizeof(zahl_char_t)); } + + +ZAHL_INLINE void +zmul(z_t a, z_t b, z_t c) +{ + int b_sign, c_sign; + b_sign = b->sign, b->sign *= b_sign; + c_sign = c->sign, c->sign *= c_sign; + zmul_ll(a, b, c); + c->sign = c_sign; + b->sign = b_sign; + ZAHL_SET_SIGNUM(a, zsignum(b) * zsignum(c)); +} + + +ZAHL_INLINE void +zsqr(z_t a, z_t b) +{ + if (ZAHL_UNLIKELY(zzero(b))) { + ZAHL_SET_SIGNUM(a, 0); + } else { + zsqr_ll(a, b); + ZAHL_SET_SIGNUM(a, 1); + } +} -- cgit v1.2.3-70-g09d2