From e68884c7cd010cedf354312c3756dbbdc1a56129 Mon Sep 17 00:00:00 2001
From: Shagun Agrawal <agrawalshagun07@gmail.com>
Date: Thu, 13 Mar 2025 23:43:02 +0530
Subject: Complete tacky generation phase for doubles

---
 src/cljcc/util.clj | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'src/cljcc/util.clj')

diff --git a/src/cljcc/util.clj b/src/cljcc/util.clj
index 351b11f..4c56ab9 100644
--- a/src/cljcc/util.clj
+++ b/src/cljcc/util.clj
@@ -149,6 +149,9 @@
     {:type :ulong} 10
     (exc/analyzer-error "Invalid type passed to get-type-size." {:type t})))
 
+(defn type-double? [t]
+  (= {:type :double} t))
+
 (defn type-signed? [t]
   (condp = t
     {:type :int} true
-- 
cgit v1.2.3