diff options
| author | Tristan Gingold <tgingold@free.fr> | 2017-05-13 06:45:11 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2017-05-17 07:19:47 +0200 |
| commit | 0f0d483c355ca51bbc4f9d9bdb354d84a5fc4f76 (patch) | |
| tree | 328c9a86ad8efd9143f81a5bf5511ccb5bb9a2c5 /src/vhdl/translate/trans.ads | |
| parent | 669d25e0794e3ab9dc709bc977d2de43e7e2783d (diff) | |
| download | ghdl-0f0d483c355ca51bbc4f9d9bdb354d84a5fc4f76.tar.gz ghdl-0f0d483c355ca51bbc4f9d9bdb354d84a5fc4f76.tar.bz2 ghdl-0f0d483c355ca51bbc4f9d9bdb354d84a5fc4f76.zip | |
translate: separate spec and body translation for implicit subprograms.
Diffstat (limited to 'src/vhdl/translate/trans.ads')
| -rw-r--r-- | src/vhdl/translate/trans.ads | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/vhdl/translate/trans.ads b/src/vhdl/translate/trans.ads index a8ebb613e..80392c86e 100644 --- a/src/vhdl/translate/trans.ads +++ b/src/vhdl/translate/trans.ads @@ -1259,7 +1259,11 @@ package Trans is -- subprograms. -- Use secondary stack (not referenced). - Operator_Stack2 : Boolean; + Operator_Stack2 : Boolean := False; + + -- True if the body was generated. Many operators share the same + -- subprogram. + Operator_Body : Boolean := False; -- Subprogram declaration node. Operator_Node : O_Dnode; @@ -1270,6 +1274,7 @@ package Trans is -- Parameters Operator_Left, Operator_Right : O_Dnode; + Operator_Res : O_Dnode; when Kind_Call => Call_State_Scope : aliased Var_Scope_Type; |