From e6001445a14d5e96db78ff56c68d8ae96dec0968 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 8 Mar 2014 07:04:05 +0100
Subject: Share spec of ortho_nodes, adjust code.

---
 ortho/mcode/ortho_mcode-jit.adb | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100644 ortho/mcode/ortho_mcode-jit.adb

(limited to 'ortho/mcode/ortho_mcode-jit.adb')

diff --git a/ortho/mcode/ortho_mcode-jit.adb b/ortho/mcode/ortho_mcode-jit.adb
new file mode 100644
index 0000000..7e845cc
--- /dev/null
+++ b/ortho/mcode/ortho_mcode-jit.adb
@@ -0,0 +1,28 @@
+with Ada.Unchecked_Conversion;
+
+with Ortho_Code.Binary;
+with Binary_File; use Binary_File;
+with Binary_File.Memory;
+
+package body Ortho_Mcode.Jit is
+   --  Set address of non-defined global variables or functions.
+   procedure Set_Address (Decl : O_Dnode; Addr : Address)
+   is
+      use Ortho_Code.Binary;
+   begin
+      Binary_File.Memory.Set_Symbol_Address
+        (Get_Decl_Symbol (Ortho_Code.O_Dnode (Decl)), Addr);
+   end Set_Address;
+
+   --  Get address of a global.
+   function Get_Address (Decl : O_Dnode) return Address
+   is
+      use Ortho_Code.Binary;
+
+      function Conv is new Ada.Unchecked_Conversion
+        (Source => Pc_Type, Target => Address);
+   begin
+      return Conv (Get_Symbol_Vaddr
+                     (Get_Decl_Symbol (Ortho_Code.O_Dnode (Decl))));
+   end Get_Address;
+end Ortho_Mcode.Jit;
-- 
cgit