From 77d694076c67cbd37504b340190f29b6589dba13 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sun, 16 Nov 2014 07:56:41 +0100
Subject: src/ortho/gcc/ortho_gcc.ads: regenerate.

---
 src/ortho/gcc/ortho_gcc.ads | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'src/ortho/gcc/ortho_gcc.ads')

diff --git a/src/ortho/gcc/ortho_gcc.ads b/src/ortho/gcc/ortho_gcc.ads
index 0afdc08..7ed83d2 100644
--- a/src/ortho/gcc/ortho_gcc.ads
+++ b/src/ortho/gcc/ortho_gcc.ads
@@ -541,6 +541,7 @@ private
    pragma Convention (C, O_Element_List);
 
    type O_Case_Block is record
+      Prev_Stmts : Tree;
       Case_Type : Tree;
       End_Label : Tree;
       Add_Break : Integer;
@@ -548,7 +549,8 @@ private
    pragma Convention (C, O_Case_Block);
 
    type O_If_Block is record
-      Stmt : Tree;
+      Prev_Stmts : Tree;
+      If_Stmt : Tree;
    end record;
    pragma Convention (C, O_If_Block);
 
-- 
cgit