1 files changed, 0 insertions, 4 deletions
diff --git a/ortho/gcc/ortho_gcc.ads b/ortho/gcc/ortho_gcc.ads
index 9ec38cd..9b53568 100644
--- a/ortho/gcc/ortho_gcc.ads
+++ b/ortho/gcc/ortho_gcc.ads
@@ -422,7 +422,6 @@ package Ortho_Gcc is
    procedure New_Default_Choice (Block : in out O_Case_Block);
    procedure Finish_Choice (Block : in out O_Case_Block);
    procedure Finish_Case_Stmt (Block : in out O_Case_Block);
-   procedure Debug_Tree_C(Expr : O_Cnode);
 
 private
    subtype Tree is System.Address;
@@ -658,7 +657,4 @@ private
    pragma Import (C, New_Default_Choice);
    pragma Import (C, Finish_Choice);
    pragma Import (C, Finish_Case_Stmt);
-
-   pragma Import (C, Debug_Tree_C);
-
 end Ortho_Gcc;