diff options
| author | Tristan Gingold | 2014-01-26 07:50:15 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-01-26 07:50:15 +0100 |
| commit | f74185d729e80fb2073375a6c4c39081209e914f (patch) | |
| tree | 2179dd5f6986120bf05eede09ad10849a4ec6204 /ortho/mcode/ortho_code_main.adb | |
| parent | 2cc6d66e785130bb757bcb73e96cfffdc2c2f0b7 (diff) | |
| download | ghdl-f74185d729e80fb2073375a6c4c39081209e914f.tar.gz ghdl-f74185d729e80fb2073375a6c4c39081209e914f.tar.bz2 ghdl-f74185d729e80fb2073375a6c4c39081209e914f.zip | |
Make ghdl_rti_type an address. Remove union from translation.
LLVM preliminary work.
Diffstat (limited to 'ortho/mcode/ortho_code_main.adb')
| -rw-r--r-- | ortho/mcode/ortho_code_main.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ortho/mcode/ortho_code_main.adb b/ortho/mcode/ortho_code_main.adb index 7454d8f..a0e6dc6 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 |