From 70cc586c068c297bdd1fbb0285473246f8812655 Mon Sep 17 00:00:00 2001
From: gingold
Date: Sun, 9 Oct 2005 17:27:11 +0000
Subject: --vcdz option added, switched to gcc-4.0.2, can be compiled with GNAT
 GPL 2005 ready for ada05 (interface identifier not used anymore) bug fixes

---
 ortho/gcc/ortho_ident.ads | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 ortho/gcc/ortho_ident.ads

(limited to 'ortho/gcc/ortho_ident.ads')

diff --git a/ortho/gcc/ortho_ident.ads b/ortho/gcc/ortho_ident.ads
new file mode 100644
index 0000000..4675bc4
--- /dev/null
+++ b/ortho/gcc/ortho_ident.ads
@@ -0,0 +1,12 @@
+with System; use System;
+
+package Ortho_Ident is
+   subtype O_Ident is Address;
+   function Get_Identifier (Str : String) return O_Ident;
+   function Get_String (Id : O_Ident) return String;
+   function Is_Equal (L, R : O_Ident) return Boolean renames System."=";
+   function Is_Equal (Id : O_Ident; Str : String) return Boolean;
+   O_Ident_Nul : constant O_Ident;
+private
+   O_Ident_Nul : constant O_Ident := Null_Address;
+end Ortho_Ident;
-- 
cgit