From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 26425 invoked by alias); 18 Oct 2013 13:40:47 -0000 Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org Received: (qmail 26409 invoked by uid 89); 18 Oct 2013 13:40:47 -0000 Authentication-Results: sourceware.org; auth=none X-Virus-Found: No X-Spam-SWARE-Status: No, score=-2.4 required=5.0 tests=AWL,BAYES_00,RP_MATCHES_RCVD autolearn=ham version=3.3.2 X-HELO: mga11.intel.com Received: from mga11.intel.com (HELO mga11.intel.com) (192.55.52.93) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Fri, 18 Oct 2013 13:40:46 +0000 Received: from fmsmga002.fm.intel.com ([10.253.24.26]) by fmsmga102.fm.intel.com with ESMTP; 18 Oct 2013 06:40:45 -0700 X-ExtLoop1: 1 Received: from irvmail001.ir.intel.com ([163.33.26.43]) by fmsmga002.fm.intel.com with ESMTP; 18 Oct 2013 06:40:39 -0700 Received: from ulvlx001.iul.intel.com (ulvlx001.iul.intel.com [172.28.207.17]) by irvmail001.ir.intel.com (8.14.3/8.13.6/MailSET/Hub) with ESMTP id r9IDecS7020870; Fri, 18 Oct 2013 14:40:38 +0100 Received: from ulvlx001.iul.intel.com (localhost [127.0.0.1]) by ulvlx001.iul.intel.com with ESMTP id r9IDecTQ015369; Fri, 18 Oct 2013 15:40:38 +0200 Received: (from nblanc@localhost) by ulvlx001.iul.intel.com with œ id r9IDecLb015365; Fri, 18 Oct 2013 15:40:38 +0200 From: Nicolas Blanc To: tromey@redhat.com Cc: gdb-patches@sourceware.org, Nicolas Blanc Subject: [PATCH v17 4/5] Function is_elf_target. Date: Fri, 18 Oct 2013 13:40:00 -0000 Message-Id: <1382103635-15300-5-git-send-email-nicolas.blanc@intel.com> In-Reply-To: <1382103635-15300-1-git-send-email-nicolas.blanc@intel.com> References: <1382103635-15300-1-git-send-email-nicolas.blanc@intel.com> X-IsSubscribed: yes X-SW-Source: 2013-10/txt/msg00555.txt.bz2 2013-27-09 Nicolas Blanc gdb/testsuite * lib/gdb.exp (is_elf_target): New function. Signed-off-by: Nicolas Blanc --- gdb/testsuite/lib/gdb.exp | 39 +++++++++++++++++++++++++++++++++++++++ 1 files changed, 39 insertions(+), 0 deletions(-) diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp index 44786ec..1b51d7a 100644 --- a/gdb/testsuite/lib/gdb.exp +++ b/gdb/testsuite/lib/gdb.exp @@ -1796,6 +1796,45 @@ proc supports_reverse {} { return 0 } +# Return 1 if target is ELF. +gdb_caching_proc is_elf_target { + set me "is_elf_target" + + set src [standard_temp_file is_elf_target[pid].c] + set obj [standard_temp_file is_elf_target[pid].o] + + set fp_src [open $src "w"] + puts $fp_src "int foo () {return 0;}" + close $fp_src + + verbose "$me: compiling testfile $src" 2 + set lines [gdb_compile $src $obj object {quiet}] + + file delete $src + + if ![string match "" $lines] then { + verbose "$me: testfile compilation failed, returning 0" 2 + return 0 + } + + set fp_obj [open $obj "r"] + fconfigure $fp_obj -translation binary + set data [read $fp_obj] + close $fp_obj + + file delete $obj + + set ELFMAG "\u007FELF" + + if {[string compare -length 4 $data $ELFMAG] != 0} { + verbose "$me: returning 0" 2 + return 0 + } + + verbose "$me: returning 1" 2 + return 1 +} + # Return 1 if target is ILP32. # This cannot be decided simply from looking at the target string, # as it might depend on externally passed compiler options like -m64. -- 1.7.6.5