From: charlet Date: Mon, 5 Sep 2005 08:52:50 +0000 (+0000) Subject: Removed, no longer used. X-Git-Tag: upstream/4.9.2~58811 X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b666b26d1f4b86529b15a5d714b69ae479439251;p=platform%2Fupstream%2Flinaro-gcc.git Removed, no longer used. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103898 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/ada/dec-io.adb b/gcc/ada/dec-io.adb deleted file mode 100644 index 6d89496..0000000 --- a/gcc/ada/dec-io.adb +++ /dev/null @@ -1,209 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME COMPONENTS -- --- -- --- D E C . I O -- --- -- --- B o d y -- --- -- --- Copyright (C) 2001-2005 Free Software Foundation, Inc. -- --- -- --- GNAT is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 2, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- --- for more details. You should have received a copy of the GNU General -- --- Public License distributed with GNAT; see file COPYING. If not, write -- --- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, -- --- Boston, MA 02110-1301, USA. -- --- -- --- As a special exception, if other files instantiate generics from this -- --- unit, or you link this unit with other files to produce an executable, -- --- this unit does not by itself cause the resulting executable to be -- --- covered by the GNU General Public License. This exception does not -- --- however invalidate any other reasons why the executable file might be -- --- covered by the GNU Public License. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - --- This is an AlphaVMS package that provides the interface between --- GNAT, DECLib IO packages and the DECLib Bliss library. - -pragma Extend_System (Aux_DEC); - -with System; use System; -with System.Task_Primitives; use System.Task_Primitives; -with System.Task_Primitives.Operations; use System.Task_Primitives.Operations; -with IO_Exceptions; use IO_Exceptions; -with Aux_IO_Exceptions; use Aux_IO_Exceptions; - -package body DEC.IO is - - type File_Type is record - FCB : Integer := 0; -- Temporary - SEQ : Integer := 0; - end record; - - for File_Type'Size use 64; - for File_Type'Alignment use 8; - - for File_Type use record - FCB at 0 range 0 .. 31; - SEQ at 4 range 0 .. 31; - end record; - - ----------------------- - -- Local Subprograms -- - ----------------------- - - function GNAT_Name_64 (File : File_Type) return String; - pragma Export_Function (GNAT_Name_64, "GNAT$NAME_64"); - -- ??? comment - - function GNAT_Form_64 (File : File_Type) return String; - pragma Export_Function (GNAT_Form_64, "GNAT$FORM_64"); - -- ??? comment - - procedure Init_IO; - pragma Interface (C, Init_IO); - pragma Import_Procedure (Init_IO, "GNAT$$INIT_IO"); - -- ??? comment - - ---------------- - -- IO_Locking -- - ---------------- - - package body IO_Locking is - - ------------------ - -- Create_Mutex -- - ------------------ - - function Create_Mutex return Access_Mutex is - M : constant Access_Mutex := new RTS_Lock; - - begin - Initialize_Lock (M, Global_Task_Level); - return M; - end Create_Mutex; - - ------------- - -- Acquire -- - ------------- - - procedure Acquire (M : Access_Mutex) is - begin - Write_Lock (M); - end Acquire; - - ------------- - -- Release -- - ------------- - - procedure Release (M : Access_Mutex) is - begin - Unlock (M); - end Release; - - end IO_Locking; - - ------------------ - -- GNAT_Name_64 -- - ------------------ - - function GNAT_Name_64 (File : File_Type) return String is - subtype Buffer_Subtype is String (1 .. 8192); - - Buffer : Buffer_Subtype; - Length : System.Integer_32; - - procedure Get_Name - (File : System.Address; - MaxLen : System.Integer_32; - Buffer : out Buffer_Subtype; - Length : out System.Integer_32); - pragma Interface (C, Get_Name); - pragma Import_Procedure - (Get_Name, "GNAT$FILE_NAME", - Mechanism => (Value, Value, Reference, Reference)); - - begin - Get_Name (File'Address, Buffer'Length, Buffer, Length); - return Buffer (1 .. Integer (Length)); - end GNAT_Name_64; - - ------------------ - -- GNAT_Form_64 -- - ------------------ - - function GNAT_Form_64 (File : File_Type) return String is - subtype Buffer_Subtype is String (1 .. 8192); - - Buffer : Buffer_Subtype; - Length : System.Integer_32; - - procedure Get_Form - (File : System.Address; - MaxLen : System.Integer_32; - Buffer : out Buffer_Subtype; - Length : out System.Integer_32); - pragma Interface (C, Get_Form); - pragma Import_Procedure - (Get_Form, "GNAT$FILE_FORM", - Mechanism => (Value, Value, Reference, Reference)); - - begin - Get_Form (File'Address, Buffer'Length, Buffer, Length); - return Buffer (1 .. Integer (Length)); - end GNAT_Form_64; - - ------------------------ - -- Raise_IO_Exception -- - ------------------------ - - procedure Raise_IO_Exception (EN : Exception_Number) is - begin - case EN is - when GNAT_EN_LOCK_ERROR => raise LOCK_ERROR; - when GNAT_EN_EXISTENCE_ERROR => raise EXISTENCE_ERROR; - when GNAT_EN_KEY_ERROR => raise KEY_ERROR; - when GNAT_EN_KEYSIZERR => raise PROGRAM_ERROR; -- KEYSIZERR; - when GNAT_EN_STAOVF => raise STORAGE_ERROR; -- STAOVF; - when GNAT_EN_CONSTRAINT_ERRO => raise CONSTRAINT_ERROR; - when GNAT_EN_IOSYSFAILED => raise DEVICE_ERROR; -- IOSYSFAILED; - when GNAT_EN_LAYOUT_ERROR => raise LAYOUT_ERROR; - when GNAT_EN_STORAGE_ERROR => raise STORAGE_ERROR; - when GNAT_EN_DATA_ERROR => raise DATA_ERROR; - when GNAT_EN_DEVICE_ERROR => raise DEVICE_ERROR; - when GNAT_EN_END_ERROR => raise END_ERROR; - when GNAT_EN_MODE_ERROR => raise MODE_ERROR; - when GNAT_EN_NAME_ERROR => raise NAME_ERROR; - when GNAT_EN_STATUS_ERROR => raise STATUS_ERROR; - when GNAT_EN_NOT_OPEN => raise USE_ERROR; -- NOT_OPEN; - when GNAT_EN_ALREADY_OPEN => raise USE_ERROR; -- ALREADY_OPEN; - when GNAT_EN_USE_ERROR => raise USE_ERROR; - when GNAT_EN_UNSUPPORTED => raise USE_ERROR; -- UNSUPPORTED; - when GNAT_EN_FAC_MODE_MISMAT => raise USE_ERROR; -- FAC_MODE_MISMAT; - when GNAT_EN_ORG_MISMATCH => raise USE_ERROR; -- ORG_MISMATCH; - when GNAT_EN_RFM_MISMATCH => raise USE_ERROR; -- RFM_MISMATCH; - when GNAT_EN_RAT_MISMATCH => raise USE_ERROR; -- RAT_MISMATCH; - when GNAT_EN_MRS_MISMATCH => raise USE_ERROR; -- MRS_MISMATCH; - when GNAT_EN_MRN_MISMATCH => raise USE_ERROR; -- MRN_MISMATCH; - when GNAT_EN_KEY_MISMATCH => raise USE_ERROR; -- KEY_MISMATCH; - when GNAT_EN_MAXLINEXC => raise CONSTRAINT_ERROR; -- MAXLINEXC; - when GNAT_EN_LINEXCMRS => raise CONSTRAINT_ERROR; -- LINEXCMRS; - end case; - end Raise_IO_Exception; - -------------------------- --- Package Elaboration -- -------------------------- - -begin - Init_IO; -end DEC.IO; diff --git a/gcc/ada/dec-io.ads b/gcc/ada/dec-io.ads deleted file mode 100644 index 576f7bc..0000000 --- a/gcc/ada/dec-io.ads +++ /dev/null @@ -1,123 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT RUN-TIME COMPONENTS -- --- -- --- D E C . I O -- --- -- --- S p e c -- --- -- --- Copyright (C) 1996-2005 Free Software Foundation, Inc. -- --- -- --- GNAT is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 2, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- --- for more details. You should have received a copy of the GNU General -- --- Public License distributed with GNAT; see file COPYING. If not, write -- --- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, -- --- Boston, MA 02110-1301, USA. -- --- -- --- As a special exception, if other files instantiate generics from this -- --- unit, or you link this unit with other files to produce an executable, -- --- this unit does not by itself cause the resulting executable to be -- --- covered by the GNU General Public License. This exception does not -- --- however invalidate any other reasons why the executable file might be -- --- covered by the GNU Public License. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - --- This is an AlphaVMS package that contains the declarations and --- function specifications needed by the DECLib IO packages. - -with System.Task_Primitives; -package DEC.IO is -private - - type Exception_Number is ( - GNAT_EN_LOCK_ERROR, - GNAT_EN_EXISTENCE_ERROR, - GNAT_EN_KEY_ERROR, - GNAT_EN_KEYSIZERR, - GNAT_EN_STAOVF, - GNAT_EN_CONSTRAINT_ERRO, - GNAT_EN_IOSYSFAILED, - GNAT_EN_LAYOUT_ERROR, - GNAT_EN_STORAGE_ERROR, - GNAT_EN_DATA_ERROR, - GNAT_EN_DEVICE_ERROR, - GNAT_EN_END_ERROR, - GNAT_EN_MODE_ERROR, - GNAT_EN_NAME_ERROR, - GNAT_EN_STATUS_ERROR, - GNAT_EN_NOT_OPEN, - GNAT_EN_ALREADY_OPEN, - GNAT_EN_USE_ERROR, - GNAT_EN_UNSUPPORTED, - GNAT_EN_FAC_MODE_MISMAT, - GNAT_EN_ORG_MISMATCH, - GNAT_EN_RFM_MISMATCH, - GNAT_EN_RAT_MISMATCH, - GNAT_EN_MRS_MISMATCH, - GNAT_EN_MRN_MISMATCH, - GNAT_EN_KEY_MISMATCH, - GNAT_EN_MAXLINEXC, - GNAT_EN_LINEXCMRS); - - for Exception_Number'Size use 32; - - for Exception_Number use ( - GNAT_EN_LOCK_ERROR => 1, - GNAT_EN_EXISTENCE_ERROR => 2, - GNAT_EN_KEY_ERROR => 3, - GNAT_EN_KEYSIZERR => 4, - GNAT_EN_STAOVF => 5, - GNAT_EN_CONSTRAINT_ERRO => 6, - GNAT_EN_IOSYSFAILED => 7, - GNAT_EN_LAYOUT_ERROR => 8, - GNAT_EN_STORAGE_ERROR => 9, - GNAT_EN_DATA_ERROR => 10, - GNAT_EN_DEVICE_ERROR => 11, - GNAT_EN_END_ERROR => 12, - GNAT_EN_MODE_ERROR => 13, - GNAT_EN_NAME_ERROR => 14, - GNAT_EN_STATUS_ERROR => 15, - GNAT_EN_NOT_OPEN => 16, - GNAT_EN_ALREADY_OPEN => 17, - GNAT_EN_USE_ERROR => 18, - GNAT_EN_UNSUPPORTED => 19, - GNAT_EN_FAC_MODE_MISMAT => 20, - GNAT_EN_ORG_MISMATCH => 21, - GNAT_EN_RFM_MISMATCH => 22, - GNAT_EN_RAT_MISMATCH => 23, - GNAT_EN_MRS_MISMATCH => 24, - GNAT_EN_MRN_MISMATCH => 25, - GNAT_EN_KEY_MISMATCH => 26, - GNAT_EN_MAXLINEXC => 27, - GNAT_EN_LINEXCMRS => 28); - - procedure Raise_IO_Exception (EN : Exception_Number); - pragma Export_Procedure (Raise_IO_Exception, "GNAT$RAISE_IO_EXCEPTION", - Mechanism => Value); - - package IO_Locking is - type Access_Mutex is private; - function Create_Mutex return Access_Mutex; - procedure Acquire (M : Access_Mutex); - procedure Release (M : Access_Mutex); - - private - type Access_Mutex is access System.Task_Primitives.RTS_Lock; - pragma Export_Function (Create_Mutex, "GNAT$CREATE_MUTEX", - Mechanism => Value); - pragma Export_Procedure (Acquire, "GNAT$ACQUIRE_MUTEX", - Mechanism => Value); - pragma Export_Procedure (Release, "GNAT$RELEASE_MUTEX", - Mechanism => Value); - end IO_Locking; - -end DEC.IO;