diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-03-09 07:05:34 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-03-09 07:05:34 +0100 |
commit | 6a8dd0ee9bd3ec2ffe6ff7fa821af92968008e55 (patch) | |
tree | 4dacb60b5a1e11f29a7fd1c279471ac2be6a0698 /ortho/gcc | |
parent | f1cbfa0165ced1fc75f8fea817b0e8e3bcfe6b47 (diff) | |
download | ghdl-6a8dd0ee9bd3ec2ffe6ff7fa821af92968008e55.tar.gz ghdl-6a8dd0ee9bd3ec2ffe6ff7fa821af92968008e55.tar.bz2 ghdl-6a8dd0ee9bd3ec2ffe6ff7fa821af92968008e55.zip |
Automatically unnest subprograms for llvm.
Diffstat (limited to 'ortho/gcc')
-rw-r--r-- | ortho/gcc/ortho_gcc.ads | 5 | ||||
-rw-r--r-- | ortho/gcc/ortho_gcc.private.ads | 3 |
2 files changed, 8 insertions, 0 deletions
diff --git a/ortho/gcc/ortho_gcc.ads b/ortho/gcc/ortho_gcc.ads index 6e46b6ddf..0afdc0887 100644 --- a/ortho/gcc/ortho_gcc.ads +++ b/ortho/gcc/ortho_gcc.ads @@ -44,6 +44,8 @@ package Ortho_Gcc 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 -- @@ -454,6 +456,9 @@ package Ortho_Gcc is -- End of common part private + -- GCC supports nested subprograms. + Has_Nested_Subprograms : constant Boolean := True; + pragma Convention (C, O_Storage); -- pragma Convention (C, ON_Op_Kind); diff --git a/ortho/gcc/ortho_gcc.private.ads b/ortho/gcc/ortho_gcc.private.ads index 27526517a..cc2f556f0 100644 --- a/ortho/gcc/ortho_gcc.private.ads +++ b/ortho/gcc/ortho_gcc.private.ads @@ -24,6 +24,9 @@ use Ortho_Ident; package Ortho_Gcc is private + -- GCC supports nested subprograms. + Has_Nested_Subprograms : constant Boolean := True; + pragma Convention (C, O_Storage); -- pragma Convention (C, ON_Op_Kind); |