From f74185d729e80fb2073375a6c4c39081209e914f Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 26 Jan 2014 07:50:15 +0100
Subject: Make ghdl_rti_type an address. Remove union from translation.

LLVM preliminary work.
---
 ortho/mcode/ortho_code_main.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'ortho/mcode')

diff --git a/ortho/mcode/ortho_code_main.adb b/ortho/mcode/ortho_code_main.adb
index 7454d8f1c..a0e6dc6c6 100644
--- a/ortho/mcode/ortho_code_main.adb
+++ b/ortho/mcode/ortho_code_main.adb
@@ -33,7 +33,7 @@ procedure Ortho_Code_Main
 is
    Output : String_Acc := null;
    type Format_Type is (Format_Coff, Format_Elf);
-   Format : Format_Type := Format_Elf;
+   Format : constant Format_Type := Format_Elf;
    Fd : File_Descriptor;
 
    First_File : Natural;
@@ -56,7 +56,7 @@ begin
    I := 1;
    while I <= Argc loop
       declare
-         Arg : String := Argument (I);
+         Arg : constant String := Argument (I);
       begin
          if Arg (1) = '-' then
             if Arg'Length > 5 and then Arg (1 .. 5) = "--be-" then
-- 
cgit v1.2.3