diff options
| author | Tristan Gingold | 2014-03-09 07:05:34 +0100 |
|---|---|---|
| committer | Tristan Gingold | 2014-03-09 07:05:34 +0100 |
| commit | 6a8dd0ee9bd3ec2ffe6ff7fa821af92968008e55 (patch) | |
| tree | 4dacb60b5a1e11f29a7fd1c279471ac2be6a0698 /ortho/mcode | |
| parent | f1cbfa0165ced1fc75f8fea817b0e8e3bcfe6b47 (diff) | |
| download | ghdl-6a8dd0ee9bd3ec2ffe6ff7fa821af92968008e55.tar.gz ghdl-6a8dd0ee9bd3ec2ffe6ff7fa821af92968008e55.tar.bz2 ghdl-6a8dd0ee9bd3ec2ffe6ff7fa821af92968008e55.zip | |
Automatically unnest subprograms for llvm.
Diffstat (limited to 'ortho/mcode')
| -rw-r--r-- | ortho/mcode/Makefile | 2 | ||||
| -rw-r--r-- | ortho/mcode/ortho_mcode.ads | 6 | ||||
| -rw-r--r-- | ortho/mcode/ortho_mcode.private.ads | 4 |
3 files changed, 9 insertions, 3 deletions
diff --git a/ortho/mcode/Makefile b/ortho/mcode/Makefile index 2970d60..19d5d26 100644 --- a/ortho/mcode/Makefile +++ b/ortho/mcode/Makefile @@ -1,5 +1,5 @@ ortho_srcdir=.. -GNAT_FLAGS=-gnaty3befhkmr -gnata -gnatf -gnatwlcru +GNAT_FLAGS=-gnaty3befhkmr -gnata -gnatf -gnatwlcru -gnat05 CC=gcc BE=mcode SED=sed diff --git a/ortho/mcode/ortho_mcode.ads b/ortho/mcode/ortho_mcode.ads index 1ee9d7e..45e8036 100644 --- a/ortho/mcode/ortho_mcode.ads +++ b/ortho/mcode/ortho_mcode.ads @@ -51,6 +51,8 @@ package Ortho_Mcode is O_Snode_Null : constant O_Snode; O_Tnode_Null : constant O_Tnode; + -- True if the code generated supports nested subprograms. + Has_Nested_Subprograms : constant Boolean; ------------------------ -- Type definitions -- @@ -461,7 +463,9 @@ package Ortho_Mcode is -- End of common part private - --- PUBLIC DECLARATIONS + -- MCode supports nested subprograms. + Has_Nested_Subprograms : constant Boolean := True; + type O_Tnode is new Ortho_Code.O_Tnode; type O_Cnode is new Ortho_Code.O_Cnode; type O_Dnode is new Ortho_Code.O_Dnode; diff --git a/ortho/mcode/ortho_mcode.private.ads b/ortho/mcode/ortho_mcode.private.ads index 5d3f70e..1b41477 100644 --- a/ortho/mcode/ortho_mcode.private.ads +++ b/ortho/mcode/ortho_mcode.private.ads @@ -31,7 +31,9 @@ package Ortho_Mcode is procedure Free_All; private - --- PUBLIC DECLARATIONS + -- MCode supports nested subprograms. + Has_Nested_Subprograms : constant Boolean := True; + type O_Tnode is new Ortho_Code.O_Tnode; type O_Cnode is new Ortho_Code.O_Cnode; type O_Dnode is new Ortho_Code.O_Dnode; |