Subversion Repositories openrisc

/ada.exp File deleted

/trace-support.exp File deleted

/cp-support.exp File deleted

/gdb.exp File deleted

/gdbserver-support.exp File deleted

/emc-support.exp File deleted

/mi-support.exp File deleted

/compiler.c File deleted

compiler.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: java.exp =================================================================== --- java.exp (revision 816) +++ java.exp (nonexistent) @@ -1,122 +0,0 @@ -# This test code is part of GDB, the GNU debugger. - -# Copyright 1998, 1999, 2000, 2003, 2004, 2006, 2007, 2008 -# 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 . - -load_lib "libgloss.exp" - -# GCJ_UNDER_TEST is the compiler under test. - -global tmpdir - -if ![info exists tmpdir] { - set tmpdir "/tmp" -} - -set java_initialized 0 - -# -# Build the status wrapper library as needed. -# -proc java_init { args } { - global wrapper_file; - global wrap_compile_flags; - global java_initialized - global GCJ_UNDER_TEST - global TOOL_EXECUTABLE - global env - - if { $java_initialized == 1 } { return; } - - if ![info exists GCJ_UNDER_TEST] { - if [info exists TOOL_EXECUTABLE] { - set GCJ_UNDER_TEST $TOOL_EXECUTABLE; - } else { - if [info exists env(GCJ)] { - set GCJ_UNDER_TEST $env(GCJ) - } else { - global tool_root_dir - global target_alias - - if ![is_remote host] { - set file [lookfor_file $tool_root_dir gcj]; - if { $file == "" } { - set file [lookfor_file $tool_root_dir gcc/gcj]; - } - if { $file != "" } { - set CC "$file -B[file dirname $file]/ --specs=$tool_root_dir/$target_alias/libjava/libgcj-test.spec"; - } else { - set CC [transform gcj]; - } - } else { - set CC [transform gcj] - } - set GCJ_UNDER_TEST $CC - } - } - } - - set wrapper_file ""; - set wrap_compile_flags ""; - if [target_info exists needs_status_wrapper] { - set result [build_wrapper "testglue.o"]; - if { $result != "" } { - set wrapper_file [lindex $result 0]; - set wrap_compile_flags [lindex $result 1]; - } else { - warning "Status wrapper failed to build." - } - } - - set java_initialized 1 -} - -# -# Run the test specified by srcfile and resultfile. compile_args and -# exec_args are options telling this proc how to work. -# -proc compile_java_from_source { srcfile binfile compile_args } { - global GCJ_UNDER_TEST - global runtests - global java_initialized - - if { $java_initialized != 1 } { java_init } - - set errname [file rootname [file tail $srcfile]] - if {! [runtest_file_p $runtests $errname]} { - return - } - - set args "compiler=$GCJ_UNDER_TEST" - lappend args "additional_flags=--main=[file rootname [file tail $srcfile]]" - if { $compile_args != "" } { - lappend args "additional_flags=$compile_args" - } - - if { $compile_args != "" } { - set errname "$errname $compile_args" - } - - set x [target_compile $srcfile ${binfile} executable $args] - if { $x != "" } { - verbose "target_compile failed: $x" 2 - return "$errname compilation from source"; - } -} - -# Local Variables: -# tcl-indent-level:4 -# End: Index: compiler.cc =================================================================== --- compiler.cc (revision 816) +++ compiler.cc (nonexistent) @@ -1,63 +0,0 @@ -/* This test file is part of GDB, the GNU debugger. - - Copyright 1995, 1999, 2003, 2004, 2007, 2008 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 . - - */ - -/* This file is exactly like compiler.c. I could just use compiler.c if - I could be sure that every C++ compiler accepted extensions of ".c". */ - -/* Note the semicolon at the end of this line. Older versions of - hp c++ have a bug in string preprocessing: if the last token on a - line is a string, then the preprocessor concatenates the next line - onto the current line and eats the newline! That messes up TCL of - course. That happens with HP aC++ A.03.13, but it no longer happens - with HP aC++ A.03.45. */ - -set compiler_info "unknown" ; - -#if defined (__GNUC__) -#if defined (__GNUC_PATCHLEVEL__) -/* Only GCC versions >= 3.0 define the __GNUC_PATCHLEVEL__ macro. */ -set compiler_info [join {gcc __GNUC__ __GNUC_MINOR__ __GNUC_PATCHLEVEL__} -] -#else -set compiler_info [join {gcc __GNUC__ __GNUC_MINOR__ "unknown"} -] -#endif -#endif - -#if defined (__HP_CXD_SPP) -/* older hp ansi c, such as A.11.01.25171.gp, defines this */ -set compiler_info [join {hpcc __HP_CXD_SPP} -] -#endif - -#if defined (__HP_cc) -/* newer hp ansi c, such as B.11.11.28706.gp, defines this */ -set compiler_info [join {hpcc __HP_cc} -] -#endif - -#if defined (__HP_aCC) -set compiler_info [join {hpacc __HP_aCC} -] -#endif - -#if defined (__xlc__) -/* IBM'x xlc compiler. NOTE: __xlc__ expands to a double quoted string of four - numbers seperated by '.'s: currently "7.0.0.0" */ -set need_a_set [regsub -all {\.} [join {xlc __xlc__} -] - compiler_info] -#endif - -#if defined (__ARMCC_VERSION) -set compiler_info [join {armcc __ARMCC_VERSION} -] -#endif Index: pascal.exp =================================================================== --- pascal.exp (revision 816) +++ pascal.exp (nonexistent) @@ -1,152 +0,0 @@ -# Copyright 2007, 2008 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 . - -load_lib libgloss.exp - -set pascal_init_done 0 - -# This procedure looks for a suitable pascal compiler -# For now only GNU pascal compiler and Free Pascal compiler -# are searched. -# First, environment variable GPC is checked -# if present, GPC compiler is assumed to be the value of -# that environment variable. -# Second, environment variable FPC is checked -# if present, Free Pascal compiler is assumed to be the value of -# that environment variable. -# Third, gpc executable is searched using `which gpc` -# Lastly, fpc executable is searched using `which fpc` -# Using environment variable allows to force -# which compiler is used in testsuite - -proc pascal_init {} { - global pascal_init_done - global pascal_compiler_is_gpc - global pascal_compiler_is_fpc - global gpc_compiler - global fpc_compiler - global env - - if { $pascal_init_done == 1 } { - return - } - - set pascal_compiler_is_gpc 0 - set pascal_compiler_is_fpc 0 - set gpc_compiler [transform gpc] - set fpc_compiler [transform fpc] - - if ![is_remote host] { - if { [info exists env(GPC)] } { - set pascal_compiler_is_gpc 1 - set gpc_compiler $env(GPC) - verbose -log "Assuming GNU Pascal ($gpc_compiler)" - } elseif { [info exists env(FPC)] } { - set pascal_compiler_is_fpc 1 - set fpc_compiler $env(FPC) - verbose -log "Assuming Free Pascal ($fpc_compiler)" - } elseif { [which $gpc_compiler] != 0 } { - set pascal_compiler_is_gpc 1 - verbose -log "GNU Pascal compiler found" - } elseif { [which $fpc_compiler] != 0 } { - set pascal_compiler_is_fpc 1 - verbose -log "Free Pascal compiler found" - } - } - set pascal_init_done 1 -} - -proc gpc_compile {source dest type options} { - global gpc_compiler - set add_flags "" - if {$type == "object"} { - append add_flags " -c" - } - - if { $type == "preprocess" } { - append add_flags " -E" - } - - if { $type == "assembly" } { - append add_flags " -S" - } - - foreach i $options { - if { $i == "debug" } { - if [board_info $dest exists debug_flags] { - append add_flags " [board_info $dest debug_flags]"; - } else { - append add_flags " -g" - } - } - } - - set result [remote_exec host $gpc_compiler "-o $dest --automake $add_flags $source"] - return $result -} - -proc fpc_compile {source dest type options} { - global fpc_compiler - set add_flags "" - if {$type == "object"} { - append add_flags " -Cn" - } - - if { $type == "preprocess" } { - return "Free Pascal can not preprocess" - } - - if { $type == "assembly" } { - append add_flags " -al" - } - - foreach i $options { - if { $i == "debug" } { - if [board_info $dest exists debug_flags] { - append add_flags " [board_info $dest debug_flags]"; - } else { - append add_flags " -g" - } - } - } - - set result [remote_exec host $fpc_compiler "-o$dest $add_flags $source"] - return $result -} - -proc gdb_compile_pascal {source dest type options} { - global pascal_init_done - global pascal_compiler_is_gpc - global pascal_compiler_is_fpc - - if { $pascal_init_done == 0 } { - pascal_init - } - - if { $pascal_compiler_is_fpc == 1 } { - set result [fpc_compile $source $dest $type $options] - } elseif { $pascal_compiler_is_gpc == 1 } { - set result [gpc_compile $source $dest $type $options] - } else { - unsupported "No pascal compiler found" - return "No pascal compiler. Compilation failed." - } - - if ![file exists $dest] { - unsupported "Pascal compilation failed: $result" - return "Pascal compilation failed." - } -} -