1------------------------------------------------------------------------------ 2-- -- 3-- GNAT COMPILER COMPONENTS -- 4-- -- 5-- SYSTEM.MACHINE_STATE_OPERATIONS -- 6-- -- 7-- B o d y -- 8-- (Dummy version) -- 9-- -- 10-- Copyright (C) 1999-2019, Free Software Foundation, Inc. -- 11-- -- 12-- GNAT is free software; you can redistribute it and/or modify it under -- 13-- terms of the GNU General Public License as published by the Free Soft- -- 14-- ware Foundation; either version 3, or (at your option) any later ver- -- 15-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- 16-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- 17-- or FITNESS FOR A PARTICULAR PURPOSE. -- 18-- -- 19-- As a special exception under Section 7 of GPL version 3, you are granted -- 20-- additional permissions described in the GCC Runtime Library Exception, -- 21-- version 3.1, as published by the Free Software Foundation. -- 22-- -- 23-- You should have received a copy of the GNU General Public License and -- 24-- a copy of the GCC Runtime Library Exception along with this program; -- 25-- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see -- 26-- <http://www.gnu.org/licenses/>. -- 27-- -- 28-- GNAT was originally developed by the GNAT team at New York University. -- 29-- Extensive contributions were provided by Ada Core Technologies Inc. -- 30-- -- 31------------------------------------------------------------------------------ 32 33-- This dummy version of System.Machine_State_Operations is used on targets 34-- for which zero cost exception handling is not implemented. 35 36pragma Compiler_Unit_Warning; 37 38package body System.Machine_State_Operations is 39 40 -- Turn off warnings since many unused parameters 41 42 pragma Warnings (Off); 43 44 ---------------------------- 45 -- Allocate_Machine_State -- 46 ---------------------------- 47 48 function Allocate_Machine_State return Machine_State is 49 begin 50 return Machine_State (Null_Address); 51 end Allocate_Machine_State; 52 53 ---------------- 54 -- Fetch_Code -- 55 ---------------- 56 57 function Fetch_Code (Loc : Code_Loc) return Code_Loc is 58 begin 59 return Loc; 60 end Fetch_Code; 61 62 ------------------------ 63 -- Free_Machine_State -- 64 ------------------------ 65 66 procedure Free_Machine_State (M : in out Machine_State) is 67 begin 68 M := Machine_State (Null_Address); 69 end Free_Machine_State; 70 71 ------------------ 72 -- Get_Code_Loc -- 73 ------------------ 74 75 function Get_Code_Loc (M : Machine_State) return Code_Loc is 76 begin 77 return Null_Address; 78 end Get_Code_Loc; 79 80 -------------------------- 81 -- Machine_State_Length -- 82 -------------------------- 83 84 function Machine_State_Length 85 return System.Storage_Elements.Storage_Offset is 86 begin 87 return 0; 88 end Machine_State_Length; 89 90 --------------- 91 -- Pop_Frame -- 92 --------------- 93 94 procedure Pop_Frame (M : Machine_State) is 95 begin 96 null; 97 end Pop_Frame; 98 99 ----------------------- 100 -- Set_Machine_State -- 101 ----------------------- 102 103 procedure Set_Machine_State (M : Machine_State) is 104 begin 105 null; 106 end Set_Machine_State; 107 108end System.Machine_State_Operations; 109