1 files changed, 9 insertions, 0 deletions
diff --git a/ortho/mcode/ortho_mcode-jit.ads b/ortho/mcode/ortho_mcode-jit.ads
new file mode 100644
index 0000000..c689a1e
--- /dev/null
+++ b/ortho/mcode/ortho_mcode-jit.ads
@@ -0,0 +1,9 @@
+with System; use System;
+
+package Ortho_Mcode.Jit is
+   --  Set address of non-defined global variables or functions.
+   procedure Set_Address (Decl : O_Dnode; Addr : Address);
+
+   --  Get address of a global.
+   function Get_Address (Decl : O_Dnode) return Address;
+end Ortho_Mcode.Jit;