new file mode 100644

@@ -0,0 +1,233 @@

+2017-07-19  Rui Gu  <ruig@vmware.com>

+

+	* Makefile.in (uninstall-pstack, install-pstack): New rules, add

+	to install and uninstall.

+	* pstack.sh, pstack.1: New files.

+

+Index: gdb-7.12/gdb/Makefile.in

+===================================================================

+--- gdb-7.12.orig/gdb/Makefile.in	2014-02-06 20:29:09.401214339 +0100

+@@ -1067,7 +1067,7 @@ info install-info clean-info dvi pdf ins

+ install: all

+ 	@$(MAKE) $(FLAGS_TO_PASS) install-only

+ 

+-install-only: $(CONFIG_INSTALL)

++install-only: install-pstack $(CONFIG_INSTALL)

+ 	transformed_name=`t='$(program_transform_name)'; \

+ 			  echo gdb | sed -e "$$t"` ; \

+ 		if test "x$$transformed_name" = x; then \

+@@ -1104,7 +1104,25 @@ install-strip:

+ install-python:

+ 	$(SHELL) $(srcdir)/../mkinstalldirs $(DESTDIR)$(GDB_DATADIR)/python/gdb

+ 

+-uninstall: force $(CONFIG_UNINSTALL)

++PSTACK=pstack

++.PHONY: install-pstack

++install-pstack:

++	transformed_name=`t='$(program_transform_name)'; \

++			  echo $(PSTACK) | sed -e "$$t"` ; \

++		if test "x$$transformed_name" = x; then \

++		  transformed_name=$(PSTACK) ; \

++		else \

++		  true ; \

++		fi ; \

++		$(SHELL) $(srcdir)/../mkinstalldirs $(DESTDIR)$(bindir) ; \

++		$(INSTALL_PROGRAM) $(srcdir)/$(PSTACK).sh \

++			$(DESTDIR)$(bindir)/$$transformed_name$(EXEEXT) ; \

++		: $(SHELL) $(srcdir)/../mkinstalldirs \

++			$(DESTDIR)$(man1dir) ; \

++		: $(INSTALL_DATA) $(srcdir)/pstack.1 \

++			$(DESTDIR)$(man1dir)/$$transformed_name.1

++

++uninstall: force uninstall-pstack $(CONFIG_UNINSTALL)

+ 	transformed_name=`t='$(program_transform_name)'; \

+ 			  echo gdb | sed -e $$t` ; \

+ 		if test "x$$transformed_name" = x; then \

+@@ -1127,6 +1145,18 @@ uninstall: force $(CONFIG_UNINSTALL)

+ 	fi

+ 	@$(MAKE) DO=uninstall "DODIRS=$(SUBDIRS)" $(FLAGS_TO_PASS) subdir_do

+ 

++.PHONY: uninstall-pstack

++uninstall-pstack:

++	transformed_name=`t='$(program_transform_name)'; \

++			  echo $(PSTACK) | sed -e $$t` ; \

++		if test "x$$transformed_name" = x; then \

++		  transformed_name=$(PSTACK) ; \

++		else \

++		  true ; \

++		fi ; \

++		rm -f $(DESTDIR)$(bindir)/$$transformed_name$(EXEEXT) \

++		      $(DESTDIR)$(man1dir)/$$transformed_name.1

++ 

+ # The C++ name parser can be built standalone for testing.

+ test-cp-name-parser.o: cp-name-parser.c

+ 	$(COMPILE) -DTEST_CPNAMES cp-name-parser.c

+Index: gdb-7.12/gdb/pstack.sh

+===================================================================

+--- /dev/null	1970-01-01 00:00:00.000000000 +0000

+@@ -0,0 +1,43 @@

++#!/bin/sh

++

++if test $# -ne 1; then

++    echo "Usage: `basename $0 .sh` <process-id>" 1>&2

++    exit 1

++fi

++

++if test ! -r /proc/$1; then

++    echo "Process $1 not found." 1>&2

++    exit 1

++fi

++

++# GDB doesn't allow "thread apply all bt" when the process isn't

++# threaded; need to peek at the process to determine if that or the

++# simpler "bt" should be used.

++

++backtrace="bt"

++if test -d /proc/$1/task ; then

++    # Newer kernel; has a task/ directory.

++    if test `/bin/ls /proc/$1/task | /usr/bin/wc -l` -gt 1 2>/dev/null ; then

++	backtrace="thread apply all bt"

++    fi

++elif test -f /proc/$1/maps ; then

++    # Older kernel; go by it loading libpthread.

++    if /bin/grep -e libpthread /proc/$1/maps > /dev/null 2>&1 ; then

++	backtrace="thread apply all bt"

++    fi

++fi

++

++GDB=${GDB:-gdb}

++

++# Run GDB, strip out unwanted noise.

++# --readnever is no longer used since .gdb_index is now in use.

++$GDB --quiet -nx $GDBARGS /proc/$1/exe $1 <<EOF 2>&1 | 

++set width 0

++set height 0

++set pagination no

++$backtrace

++EOF

++/bin/sed -n \

++    -e 's/^\((gdb) \)*//' \

++    -e '/^#/p' \

++    -e '/^Thread/p'

+Index: gdb-7.12/gdb/testsuite/gdb.base/pstack.exp

+===================================================================

+--- /dev/null	1970-01-01 00:00:00.000000000 +0000

+@@ -0,0 +1,66 @@

++# Copyright (C) 2012 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 <http://www.gnu.org/licenses/>.

++

++set testfile pstack

++set executable ${testfile}

++set binfile [standard_output_file $executable]

++if {[build_executable ${testfile} ${executable} "" {debug}] == -1} {

++    return -1

++}

++

++set test "spawn inferior"

++set command "${binfile}"

++set res [remote_spawn host $command];

++if { $res < 0 || $res == "" } {

++    perror "Spawning $command failed."

++    fail $test

++    return

++}

++set use_gdb_stub 1

++set pid [exp_pid -i $res]

++gdb_expect {

++    -re "looping\r\n" {

++	pass $test

++    }

++    eof {

++	fail "$test (eof)"

++	return

++    }

++    timeout {

++	fail "$test (timeout)"

++	return

++    }

++}

++gdb_exit

++

++# Testcase uses the most simple notification not to get caught by attach on

++# exiting the function.  Still we could retry the pstack command if we fail.

++

++set test "spawn pstack"

++set command "sh -c GDB=$GDB\\ GDBARGS=-data-directory\\\\\\ $BUILD_DATA_DIRECTORY\\ sh\\ ${srcdir}/../pstack.sh\\ $pid\\;echo\\ GSTACK-END"

++set res [remote_spawn host $command];

++if { $res < 0 || $res == "" } {

++    perror "Spawning $command failed."

++    fail $test

++}

++set pid [exp_pid -i $res]

++gdb_test_multiple "" $test {

++    -re "^#0 +(0x\[0-9a-f\]+ in )?\\.?func \\(\\) at \[^\r\n\]*\r\n#1 +0x\[0-9a-f\]+ in \\.?main \\(\\) at \[^\r\n\]*\r\nGSTACK-END\r\n\$" {

++	pass $test

++    }

++}

++gdb_exit

++

++remote_exec host "kill -9 $pid"

+Index: gdb-7.12/gdb/testsuite/gdb.base/pstack.c

+===================================================================

+--- /dev/null	1970-01-01 00:00:00.000000000 +0000

+@@ -0,0 +1,43 @@

++/* This testcase is part of GDB, the GNU debugger.

++

++   Copyright 2005, 2007, 2008, 2009 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 <http://www.gnu.org/licenses/>.  */

++

++#include <stdio.h>

++#include <unistd.h>

++#include <string.h>

++

++void

++func (void)

++{

++  const char msg[] = "looping\n";

++

++  /* Use the most simple notification not to get caught by attach on exiting

++     the function.  */

++  write (1, msg, strlen (msg));

++  

++  for (;;);

++}

++

++int

++main (void)

++{

++  alarm (60);

++  nice (100);

++

++  func ();

++

++  return 0;

++}

+

@@ -1,7 +1,7 @@

 Summary:        C debugger

 Name:           gdb

 Version:        7.8.2

-Release:        5%{?dist}

+Release:        6%{?dist}

 License:        GPLv2+

 URL:            http://www.gnu.org/software/%{name}

 Source0:        http://ftp.gnu.org/gnu/gdb/%{name}-%{version}.tar.gz

@@ -9,6 +9,7 @@ Source0:        http://ftp.gnu.org/gnu/gdb/%{name}-%{version}.tar.gz

 Group:          Development/Tools

 Vendor:         VMware, Inc.

 Distribution:   Photon

+Patch0:         gdb-7.12-pstack.patch

 Requires:       python3

 Requires:       expat

 Requires:       ncurses >= 6.0-3

@@ -23,6 +24,7 @@ GDB, the GNU Project debugger, allows you to see what is going on

 another program was doing at the moment it crashed. 

 %prep

 %setup -q

+%patch0 -p1

 %build

 ./configure \

     --prefix=%{_prefix} \

@@ -61,6 +63,8 @@ make -k check |& tee %{_specdir}/%{name}-check-log || %{nocheck}

 %{_mandir}/*/*

 %changelog

+*   Thu Jul 20 2017 Rui Gu <ruig@vmware.com> 7.8.2-6

+-   Add pstack wrapper which will invoke gdb.

 *   Tue May 30 2017 Xiaolin Li <xiaolinl@vmware.com> 7.8.2-5

 -   Build gdb with python3.

 *   Mon Apr 3 2017 Alexey Makhalov <amakhalov@vmware.com> 7.8.2-4