From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 4817 invoked by alias); 7 Oct 2013 12:27:10 -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 4735 invoked by uid 89); 7 Oct 2013 12:27:09 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-2.3 required=5.0 tests=AWL,BAYES_00,RP_MATCHES_RCVD autolearn=ham version=3.3.2 X-HELO: mga14.intel.com Received: from mga14.intel.com (HELO mga14.intel.com) (143.182.124.37) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Mon, 07 Oct 2013 12:27:08 +0000 Received: from azsmga002.ch.intel.com ([10.2.17.35]) by azsmga102.ch.intel.com with ESMTP; 07 Oct 2013 05:27:07 -0700 X-ExtLoop1: 1 Received: from irvmail001.ir.intel.com ([163.33.26.43]) by AZSMGA002.ch.intel.com with ESMTP; 07 Oct 2013 05:27:06 -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 r97CR5LG020261; Mon, 7 Oct 2013 13:27:05 +0100 Received: from ulvlx001.iul.intel.com (localhost [127.0.0.1]) by ulvlx001.iul.intel.com with ESMTP id r97CR5su021960; Mon, 7 Oct 2013 14:27:05 +0200 Received: (from nblanc@localhost) by ulvlx001.iul.intel.com with œ id r97CR5xR021956; Mon, 7 Oct 2013 14:27:05 +0200 From: Nicolas Blanc To: gdb-patches@sourceware.org Cc: nicolas.blanc@intel.com Subject: [PATCH v16 4/5] Function is_elf_target. Date: Mon, 07 Oct 2013 12:27:00 -0000 Message-Id: <1381148820-21890-5-git-send-email-nicolas.blanc@intel.com> In-Reply-To: <1381148820-21890-1-git-send-email-nicolas.blanc@intel.com> References: <1381148820-21890-1-git-send-email-nicolas.blanc@intel.com> X-IsSubscribed: yes X-SW-Source: 2013-10/txt/msg00186.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 6c9948f..3507442 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