1-- Mcode back-end for ortho - Binary X86 instructions generator. 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 Binary_File; use Binary_File; 17with Ortho_Code.Exprs; use Ortho_Code.Exprs; 18 19package Ortho_Code.X86.Emits is 20 procedure Init; 21 procedure Finish; 22 23 procedure Emit_Subprg (Subprg : Subprogram_Data_Acc); 24 25 procedure Emit_Var_Decl (Decl : O_Dnode); 26 procedure Emit_Var_Zero (Decl : O_Dnode); 27 28 procedure Emit_Const_Decl (Decl : O_Dnode); 29 procedure Emit_Init_Value (Decl : O_Dnode; Val : O_Cnode); 30 31 type Intrinsic_Symbols_Map is array (Intrinsics_X86) of Symbol; 32 Intrinsics_Symbol : Intrinsic_Symbols_Map; 33 34 Mcount_Symbol : Symbol; 35 Chkstk_Symbol : Symbol; 36end Ortho_Code.X86.Emits; 37