1 files changed, 4 insertions, 0 deletions
diff --git a/evaluation.ads b/evaluation.ads
index 282a7522a..7a4df00bb 100644
--- a/evaluation.ads
+++ b/evaluation.ads
@@ -100,4 +100,8 @@ package Evaluation is
    --  or operator sumbol of ID, using the same format as SIMPLE_NAME
    --  attribute.
    procedure Eval_Simple_Name (Id : Name_Id);
+
+   --  Compare two string literals (of same length).
+   type Compare_Type is (Compare_Lt, Compare_Eq, Compare_Gt);
+   function Compare_String_Literals (L, R : Iir) return Compare_Type;
 end Evaluation;