1 files changed, 3 insertions, 1 deletions
diff --git a/src/ortho/gcc/ortho_gcc.private.ads b/src/ortho/gcc/ortho_gcc.private.ads
index cc2f556..7eacdf4 100644
--- a/src/ortho/gcc/ortho_gcc.private.ads
+++ b/src/ortho/gcc/ortho_gcc.private.ads
@@ -109,6 +109,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;
@@ -116,7 +117,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);