1-- Mcode back-end for ortho - Internal tree dumper. 2-- Copyright (C) 2006 Tristan Gingold 3-- 4-- This program is free software: you can redistribute it and/or modify 5-- it under the terms of the GNU General Public License as published by 6-- the Free Software Foundation, either version 2 of the License, or 7-- (at your option) any later version. 8-- 9-- This program is distributed in the hope that it will be useful, 10-- but WITHOUT ANY WARRANTY; without even the implied warranty of 11-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 12-- GNU General Public License for more details. 13-- 14-- You should have received a copy of the GNU General Public License 15-- along with this program. If not, see <gnu.org/licenses>. 16with Ortho_Code.Exprs; use Ortho_Code.Exprs; 17 18package Ortho_Code.Disps is 19 procedure Disp_Subprg (Subprg : Subprogram_Data_Acc); 20 procedure Disp_Type (Atype : O_Tnode; Force : Boolean := False); 21 procedure Init; 22 procedure Finish; 23end Ortho_Code.Disps; 24