From f10a3973ec9e4f26fa78eb479fbeacc6caa0dcbf Mon Sep 17 00:00:00 2001
From: Alasdair Armstrong
Date: Tue, 13 Feb 2018 19:18:34 +0000
Subject: Support for large bitvector literals in C backend

---
 src/util.ml | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'src/util.ml')

diff --git a/src/util.ml b/src/util.ml
index 94caf9fc..a627fd58 100644
--- a/src/util.ml
+++ b/src/util.ml
@@ -387,7 +387,12 @@ let is_none opt = not (is_some opt)
 let rec take n xs = match n, xs with
   | 0, _ -> []
   | n, [] -> []
-  | n, (x :: xs) -> x :: take (n - 1) xs 
+  | n, (x :: xs) -> x :: take (n - 1) xs
+
+let rec drop n xs = match n, xs with
+  | 0, xs -> xs
+  | n, [] -> []
+  | n, (x :: xs) -> drop (n - 1) xs
 
 let termcode n =
   if !opt_colors then
-- 
cgit v1.2.3