From efb30b021679ac1334e1d4fdffa073eaaa082a51 Mon Sep 17 00:00:00 2001
From: gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7>
Date: Tue, 1 Nov 2005 03:04:50 +0000
Subject: update: support of amd64 + more optimizations

---
 iirs_utils.ads | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'iirs_utils.ads')

diff --git a/iirs_utils.ads b/iirs_utils.ads
index f567d10b8..90de0324e 100644
--- a/iirs_utils.ads
+++ b/iirs_utils.ads
@@ -152,5 +152,9 @@ package Iirs_Utils is
    --  a unit_declaration.
    --  See also Evaluation.Get_Physical_Value.
    function Get_Physical_Literal_Value (Lit : Iir) return Iir_Int64;
+
+   --  Return TRUE if the base name of NAME is a signal object.
+   function Is_Signal_Object (Name: Iir) return Boolean;
+
 end Iirs_Utils;
 
-- 
cgit v1.2.3