Subversion Repositories openrisc

/foo.c File deleted

foo.c Property changes : Deleted: svn:eol-style ## -1 +0,0 ## -native \ No newline at end of property Deleted: svn:keywords ## -1 +0,0 ## -Id \ No newline at end of property Index: lang_switch.adb =================================================================== --- lang_switch.adb (revision 816) +++ lang_switch.adb (nonexistent) @@ -1,34 +0,0 @@ --- Copyright 2008, 2009, 2010 Free Software Foundation, Inc. --- --- This program is free software; you can redistribute it and/or modify --- it under the terms of the GNU General Public License as published by --- the Free Software Foundation; either version 3 of the License, or --- (at your option) any later version. --- --- This program is distributed in the hope that it will be useful, --- but WITHOUT 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 --- along with this program. If not, see . - -with System; - -procedure Lang_Switch is - pragma Linker_Options ("foo.o"); - - function C_Procedure (Msg : String) return Integer; - pragma Import(C, C_Procedure, "c_procedure"); - - procedure Ada_Procedure (Msg : String) is - C_Msg : String (1 .. 1024); - Tmp_Int : Integer; - begin - C_Msg (1 .. Msg'length + 1) := Msg & Ascii.Nul; - Tmp_Int := C_Procedure (Msg => C_Msg); - end Ada_Procedure; - -begin - Ada_Procedure ("msg"); -end Lang_Switch;