diff options
| -rw-r--r-- | src/ortho/mcode/binary_file-coff.adb | 7 | ||||
| -rw-r--r-- | src/ortho/mcode/binary_file-coff.ads | 2 | ||||
| -rw-r--r-- | src/ortho/mcode/binary_file-elf.adb | 7 | ||||
| -rw-r--r-- | src/ortho/mcode/binary_file-elf.ads | 2 | ||||
| -rw-r--r-- | src/ortho/mcode/ortho_code_main.adb | 4 | ||||
| -rw-r--r-- | src/ortho/mcode/ortho_jit.adb | 2 | ||||
| -rw-r--r-- | src/vhdl/translate/trans-chap3.adb | 5 |
7 files changed, 13 insertions, 16 deletions
diff --git a/src/ortho/mcode/binary_file-coff.adb b/src/ortho/mcode/binary_file-coff.adb index cf3cba3..5115d37 100644 --- a/src/ortho/mcode/binary_file-coff.adb +++ b/src/ortho/mcode/binary_file-coff.adb @@ -15,13 +15,12 @@ -- along with GCC; see the file COPYING. If not, write to the Free -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Ada.Characters.Latin_1; with Coff; use Coff; package body Binary_File.Coff is - NUL : Character renames Ada.Characters.Latin_1.NUL; + NUL : Character renames ASCII.NUL; - procedure Write_Coff (Fd : GNAT.OS_Lib.File_Descriptor) + procedure Write (Fd : GNAT.OS_Lib.File_Descriptor) is use GNAT.OS_Lib; @@ -402,6 +401,6 @@ package body Binary_File.Coff is raise Program_Error; end if; end; - end Write_Coff; + end Write; end Binary_File.Coff; diff --git a/src/ortho/mcode/binary_file-coff.ads b/src/ortho/mcode/binary_file-coff.ads index e671555..014b5de 100644 --- a/src/ortho/mcode/binary_file-coff.ads +++ b/src/ortho/mcode/binary_file-coff.ads @@ -18,6 +18,6 @@ with GNAT.OS_Lib; package Binary_File.Coff is - procedure Write_Coff (Fd : GNAT.OS_Lib.File_Descriptor); + procedure Write (Fd : GNAT.OS_Lib.File_Descriptor); end Binary_File.Coff; diff --git a/src/ortho/mcode/binary_file-elf.adb b/src/ortho/mcode/binary_file-elf.adb index 329dbac..94f04e3 100644 --- a/src/ortho/mcode/binary_file-elf.adb +++ b/src/ortho/mcode/binary_file-elf.adb @@ -16,12 +16,11 @@ -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. with Ada.Text_IO; use Ada.Text_IO; -with Ada.Characters.Latin_1; with Elf_Common; with Elf32; package body Binary_File.Elf is - NUL : Character renames Ada.Characters.Latin_1.NUL; + NUL : Character renames ASCII.NUL; type Arch_Bool is array (Arch_Kind) of Boolean; Is_Rela : constant Arch_Bool := (Arch_Unknown => False, @@ -29,7 +28,7 @@ package body Binary_File.Elf is Arch_Sparc => True, Arch_Ppc => True); - procedure Write_Elf (Fd : GNAT.OS_Lib.File_Descriptor) + procedure Write (Fd : GNAT.OS_Lib.File_Descriptor) is use Elf_Common; use Elf32; @@ -674,6 +673,6 @@ package body Binary_File.Elf is end case; end loop; end; - end Write_Elf; + end Write; end Binary_File.Elf; diff --git a/src/ortho/mcode/binary_file-elf.ads b/src/ortho/mcode/binary_file-elf.ads index e0d3a4d..6575a15 100644 --- a/src/ortho/mcode/binary_file-elf.ads +++ b/src/ortho/mcode/binary_file-elf.ads @@ -18,5 +18,5 @@ with GNAT.OS_Lib; package Binary_File.Elf is - procedure Write_Elf (Fd : GNAT.OS_Lib.File_Descriptor); + procedure Write (Fd : GNAT.OS_Lib.File_Descriptor); end Binary_File.Elf; diff --git a/src/ortho/mcode/ortho_code_main.adb b/src/ortho/mcode/ortho_code_main.adb index a0e6dc6..c515f58 100644 --- a/src/ortho/mcode/ortho_code_main.adb +++ b/src/ortho/mcode/ortho_code_main.adb @@ -155,9 +155,9 @@ begin if Fd /= Invalid_FD then case Format is when Format_Elf => - Binary_File.Elf.Write_Elf (Fd); + Binary_File.Elf.Write (Fd); when Format_Coff => - Binary_File.Coff.Write_Coff (Fd); + Binary_File.Coff.Write (Fd); end case; Close (Fd); end if; diff --git a/src/ortho/mcode/ortho_jit.adb b/src/ortho/mcode/ortho_jit.adb index 7aa9724..907aea0 100644 --- a/src/ortho/mcode/ortho_jit.adb +++ b/src/ortho/mcode/ortho_jit.adb @@ -76,7 +76,7 @@ package body Ortho_Jit is Status := False; return; else - Binary_File.Elf.Write_Elf (Fd); + Binary_File.Elf.Write (Fd); Close (Fd); end if; end; diff --git a/src/vhdl/translate/trans-chap3.adb b/src/vhdl/translate/trans-chap3.adb index 3ecec89..cb58488 100644 --- a/src/vhdl/translate/trans-chap3.adb +++ b/src/vhdl/translate/trans-chap3.adb @@ -593,7 +593,7 @@ package body Trans.Chap3 is case Kind is when Mode_Value => -- For the values. - Id := Wki_Base; + Id := Create_Identifier ("BASE"); Idptr := Create_Identifier ("BASEP"); when Mode_Signal => -- For the signals @@ -1979,10 +1979,9 @@ package body Trans.Chap3 is when Iir_Kind_Array_Type_Definition => declare - El_Type : Iir; + El_Type : constant Iir := Get_Element_Subtype (Def); Mark : Id_Mark_Type; begin - El_Type := Get_Element_Subtype (Def); if Get_Info (El_Type) = null then Push_Identifier_Prefix (Mark, "ET"); Translate_Type_Definition (El_Type); |