diff options
| author | gingold | 2008-09-06 03:24:23 +0000 |
|---|---|---|
| committer | gingold | 2008-09-06 03:24:23 +0000 |
| commit | db0dacf3b4a07f26c317d7cda0c6f8882e511f88 (patch) | |
| tree | 5a4e45f543f458deba660baed7d0aacfe2751322 /xtools/check_iirs_pkg.adb | |
| parent | b42e36e23f23a0d27e7b08d6cb4461237720de3b (diff) | |
| download | ghdl-db0dacf3b4a07f26c317d7cda0c6f8882e511f88.tar.gz ghdl-db0dacf3b4a07f26c317d7cda0c6f8882e511f88.tar.bz2 ghdl-db0dacf3b4a07f26c317d7cda0c6f8882e511f88.zip | |
New feature: all-sensitized processes (for vhdl 2008)
Diffstat (limited to 'xtools/check_iirs_pkg.adb')
| -rw-r--r-- | xtools/check_iirs_pkg.adb | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/xtools/check_iirs_pkg.adb b/xtools/check_iirs_pkg.adb index 6f705f7..fc45951 100644 --- a/xtools/check_iirs_pkg.adb +++ b/xtools/check_iirs_pkg.adb @@ -232,7 +232,7 @@ package body Check_Iirs_Pkg is type Func_Info is record -- Name of the function. - Name : Vstring; + Name : String_Access; -- Field get/set by the function. Field : Field_Type; -- If true, the iir use this function. @@ -583,7 +583,7 @@ package body Check_Iirs_Pkg is Set (Function2pos, Ident, Integer (Function_Pos)); Func_Table.Set_Last (Function_Pos); Func_Table.Table (Function_Pos) := - (Name => Ident, + (Name => new String'(To_String (Ident)), Field => Field_Type (Field_Pos), Uses => (others => False), Target_Name => new String'(To_String (Ident_2)), @@ -1032,10 +1032,10 @@ package body Check_Iirs_Pkg is begin -- Avoid bug get_parent. if Is_Used (I) then - Same_Name := F.Name = Field_Table.Table (F.Field).Name.all; + Same_Name := F.Name.all = Field_Table.Table (F.Field).Name.all; if Flag_Checks then Put (" procedure Check_Kind_For_"); - Put (F.Name); + Put (F.Name.all); Put (" (Target : Iir) is"); New_Line; Put_Line (" begin"); @@ -1057,17 +1057,17 @@ package body Check_Iirs_Pkg is Put_Line (" null;"); Put_Line (" when others =>"); Put (" Failed ("""); - Put (F.Name); + Put (F.Name.all); Put_Line (""", Target);"); Put_Line (" end case;"); Put (" end Check_Kind_For_"); - Put (F.Name); + Put (F.Name.all); Put_Line (";"); New_Line; end if; Put (" function Get_"); - Put (F.Name); + Put (F.Name.all); Put (" ("); Put (F.Target_Name.all); Put (" : "); @@ -1083,7 +1083,7 @@ package body Check_Iirs_Pkg is Put_Line (" begin"); if Flag_Checks then Put (" Check_Kind_For_"); - Put (F.Name); + Put (F.Name.all); Put (" ("); Put (F.Target_Name.all); Put (");"); @@ -1120,14 +1120,14 @@ package body Check_Iirs_Pkg is Put (";"); New_Line; Put (" end Get_"); - Put (F.Name); + Put (F.Name.all); Put (";"); New_Line; New_Line; if F.Value_Name /= null then Put (" procedure Set_"); - Put (F.Name); + Put (F.Name.all); Put (" ("); Put (F.Target_Name.all); Put (" : "); @@ -1146,7 +1146,7 @@ package body Check_Iirs_Pkg is Put_Line (" begin"); if Flag_Checks then Put (" Check_Kind_For_"); - Put (F.Name); + Put (F.Name.all); Put (" ("); Put (F.Target_Name.all); Put (");"); @@ -1184,7 +1184,7 @@ package body Check_Iirs_Pkg is Put (");"); New_Line; Put (" end Set_"); - Put (F.Name); + Put (F.Name.all); Put (";"); New_Line; New_Line; |