From 9c195bf5d86d67ea5eb419ccf6e48dc153e57c68 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 4 Nov 2014 20:14:19 +0100 Subject: Move sources to src/ subdirectory. --- ortho/mcode/ortho_mcode-jit.adb | 28 ---------------------------- 1 file changed, 28 deletions(-) delete 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 deleted file mode 100644 index 7e845cc6e..000000000 --- a/ortho/mcode/ortho_mcode-jit.adb +++ /dev/null @@ -1,28 +0,0 @@ -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 v1.2.3