|
 |
5ad05e |
From FEDORA_PATCHES Mon Sep 17 00:00:00 2001
|
|
|
5ad05e |
From: Elena Zannoni <ezannoni@redhat.com>
|
|
|
5ad05e |
Date: Fri, 27 Oct 2017 21:07:50 +0200
|
|
|
5ad05e |
Subject: gdb-6.3-rh-testversion-20041202.patch
|
|
|
5ad05e |
|
|
|
5ad05e |
;; Match the Fedora's version info.
|
|
|
5ad05e |
;;=fedora
|
|
|
5ad05e |
|
|
|
5ad05e |
2003-02-24 Elena Zannoni <ezannoni@redhat.com>
|
|
|
5ad05e |
|
|
|
5ad05e |
* gdb.gdb/selftest.exp: Add matching on specific Red Hat only version
|
|
|
5ad05e |
string.
|
|
|
5ad05e |
|
|
|
5ad05e |
diff --git a/gdb/testsuite/gdb.gdb/selftest.exp b/gdb/testsuite/gdb.gdb/selftest.exp
|
|
|
5ad05e |
--- a/gdb/testsuite/gdb.gdb/selftest.exp
|
|
|
5ad05e |
+++ b/gdb/testsuite/gdb.gdb/selftest.exp
|
|
|
5ad05e |
@@ -53,6 +53,9 @@ proc test_with_self { } {
|
|
|
5ad05e |
-re ".\[0-9\]+ = +.+ +0x.*\[0-9.\]+.*$gdb_prompt $" {
|
|
|
5ad05e |
pass "printed version with cast"
|
|
|
5ad05e |
}
|
|
|
5ad05e |
+ -re ".\[0-9\]+ = .(Fedora|Red Hat Enterprise Linux) \[\\(\\)0-9.a-z\\-\]+.*$gdb_prompt $" {
|
|
|
5ad05e |
+ pass "printed version Fedora or Red Hat Enterprise Linux only"
|
|
|
5ad05e |
+ }
|
|
|
5ad05e |
}
|
|
|
5ad05e |
|
|
|
5ad05e |
# start the "xgdb" process
|
|
|
5ad05e |
diff --git a/gdb/top.c b/gdb/top.c
|
|
|
5ad05e |
--- a/gdb/top.c
|
|
|
5ad05e |
+++ b/gdb/top.c
|
|
|
5ad05e |
@@ -2096,7 +2096,7 @@ init_gdb_version_vars (void)
|
|
|
5ad05e |
struct internalvar *major_version_var = create_internalvar ("_gdb_major");
|
|
|
5ad05e |
struct internalvar *minor_version_var = create_internalvar ("_gdb_minor");
|
|
|
5ad05e |
int vmajor = 0, vminor = 0, vrevision = 0;
|
|
|
5ad05e |
- sscanf (version, "%d.%d.%d", &vmajor, &vminor, &vrevision);
|
|
|
9093b4 |
+ sscanf (version, "Red Hat Enterprise Linux %d.%d.%d", &vmajor, &vminor, &vrevision);
|
|
|
5ad05e |
set_internalvar_integer (major_version_var, vmajor);
|
|
|
5ad05e |
set_internalvar_integer (minor_version_var, vminor + (vrevision > 0));
|
|
|
5ad05e |
}
|