ortho/debug and ortho/oread added

1 files changed, 12 insertions, 0 deletions

diff --git a/ortho/debug/ortho_debug-disp.ads b/ortho/debug/ortho_debug-disp.ads
new file mode 100644
index 0000000..1f8a028
--- /dev/null
+++ b/ortho/debug/ortho_debug-disp.ads
@@ -0,0 +1,12 @@
+with Interfaces.C_Streams;
+
+package Ortho_Debug.Disp is
+   --  Initialize the current context.
+   --  Must be called before any use of the DISP_* subprograms.
+   procedure Init_Context (File : Interfaces.C_Streams.FILEs);
+
+   --  Disp nodes in a pseudo-language.
+   procedure Disp_Ortho (Decls : O_Snode);
+
+private
+end Ortho_Debug.Disp;