From 6a8dd0ee9bd3ec2ffe6ff7fa821af92968008e55 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 9 Mar 2014 07:05:34 +0100
Subject: Automatically unnest subprograms for llvm.

---
 ortho/ortho_nodes.common.ads | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'ortho/ortho_nodes.common.ads')

diff --git a/ortho/ortho_nodes.common.ads b/ortho/ortho_nodes.common.ads
index bd573c0e9..178187482 100644
--- a/ortho/ortho_nodes.common.ads
+++ b/ortho/ortho_nodes.common.ads
@@ -38,6 +38,8 @@ package ORTHO_NODES 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  --
-- 
cgit v1.2.3