From 63a3cdcd18972cdc2b6fa24d6a2deb5cae7549cc Mon Sep 17 00:00:00 2001
From: Alasdair
Date: Tue, 22 Jan 2019 03:08:46 +0000
Subject: Make sure we optimize constrained union constructors

---
 lib/rts.c | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'lib/rts.c')

diff --git a/lib/rts.c b/lib/rts.c
index bc0d4732..eacf0a70 100644
--- a/lib/rts.c
+++ b/lib/rts.c
@@ -238,6 +238,21 @@ bool write_ram(const mpz_t addr_size,     // Either 32 or 64
   return true;
 }
 
+sbits fast_read_ram(const int64_t data_size,
+		    const uint64_t addr)
+{
+  uint64_t r = 0;
+  
+  uint64_t byte;
+  for(uint64_t i = (uint64_t) data_size; i > 0; --i) {
+    byte = read_mem(addr + (i - 1));
+    r = r << 8;
+    r = r + byte;
+  }
+  sbits res = {.len = data_size * 8, .bits = r };
+  return res;
+}
+
 void read_ram(lbits *data,
 	      const mpz_t addr_size,
 	      const mpz_t data_size_mpz,
-- 
cgit v1.2.3