diff options
| author | Tristan Gingold | 2014-11-11 07:20:01 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-11-11 07:20:01 +0100 |
| commit | d7792111d0c1f9ee050fa27257c2d4c16e4fceb2 (patch) | |
| tree | 8f292c43ea7ac29d35eb3d805c79399165ae640b /src/vhdl/translate/trans.ads | |
| parent | 5424f116417beac6609b8fde7f0b903eec72a019 (diff) | |
| download | ghdl-d7792111d0c1f9ee050fa27257c2d4c16e4fceb2.tar.gz ghdl-d7792111d0c1f9ee050fa27257c2d4c16e4fceb2.tar.bz2 ghdl-d7792111d0c1f9ee050fa27257c2d4c16e4fceb2.zip | |
Create_Range_From_Length: use Mnode instead of ptr. Style changes.
Diffstat (limited to 'src/vhdl/translate/trans.ads')
| -rw-r--r-- | src/vhdl/translate/trans.ads | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/vhdl/translate/trans.ads b/src/vhdl/translate/trans.ads index 04aca3c..2bdb6fd 100644 --- a/src/vhdl/translate/trans.ads +++ b/src/vhdl/translate/trans.ads @@ -1541,17 +1541,17 @@ package Trans is T : Type_Info_Acc; Kind : Object_Kind_Type) return Mnode; - function Lp2M (L : O_Lnode; T : Type_Info_Acc; Kind : Object_Kind_Type) - return Mnode; - - function Lp2M (L : O_Lnode; + function Lv2M (L : O_Lnode; T : Type_Info_Acc; Kind : Object_Kind_Type; Vtype : O_Tnode; Ptype : O_Tnode) return Mnode; - function Lv2M (L : O_Lnode; + function Lp2M (L : O_Lnode; T : Type_Info_Acc; Kind : Object_Kind_Type) + return Mnode; + + function Lp2M (L : O_Lnode; T : Type_Info_Acc; Kind : Object_Kind_Type; Vtype : O_Tnode; |