From 380b774b2d908957081d89adce4dd5213e840bcc Mon Sep 17 00:00:00 2001 From: Glen McCready Date: Tue, 25 Apr 2000 17:55:36 +0000 Subject: [PATCH] Tue Apr 25 13:51:58 2000 glen mccready * rs6000-nat.c (xcoff_relocate_symtam): Recover from the wrong patch being applied `Fri Apr 7 13:44:38 2000'. --- gdb/ChangeLog | 5 +++++ gdb/rs6000-nat.c | 37 ++++++++++++++++++------------------- 2 files changed, 23 insertions(+), 19 deletions(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 912c19c654c..e31ead0a58d 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +Tue Apr 25 13:51:58 2000 glen mccready + + * rs6000-nat.c (xcoff_relocate_symtam): Recover from the wrong + patch being applied `Fri Apr 7 13:44:38 2000'. + 2000-04-24 Kevin Buettner * ia64-linux-tdep.c: New file. diff --git a/gdb/rs6000-nat.c b/gdb/rs6000-nat.c index f4b2831708c..49b481dcba7 100644 --- a/gdb/rs6000-nat.c +++ b/gdb/rs6000-nat.c @@ -640,39 +640,38 @@ xcoff_relocate_symtab (pid) unsigned int pid; { int load_segs = 64; /* number of load segments */ + int rc; + struct ld_info *ldi = NULL; do { - struct ld_info *ldi; - int rc; + ldi = (void *) xrealloc (ldi, load_segs * sizeof (*ldi)); - ldi = (void *) alloca (load_segs * sizeof (*ldi)); - if (ldi == 0) - perror_with_name ("xcoff_relocate_symtab"); + /* According to my humble theory, AIX has some timing problems and + when the user stack grows, kernel doesn't update stack info in time + and ptrace calls step on user stack. That is why we sleep here a + little, and give kernel to update its internals. */ - /* According to my humble theory, AIX has some timing problems and - when the user stack grows, kernel doesn't update stack info in time - and ptrace calls step on user stack. That is why we sleep here a little, - and give kernel to update its internals. */ + usleep (36000); - usleep (36000); - - errno = 0; + errno = 0; rc = ptrace (PT_LDINFO, pid, (PTRACE_ARG3_TYPE) ldi, - load_segs * sizeof (*ldi), (int *) ldi); + load_segs * sizeof (*ldi), (int *) ldi); if (rc == -1) { - if (errno == ENOMEM) - load_segs *= 2; - else - perror_with_name ("ptrace ldinfo"); + if (errno == ENOMEM) + load_segs *= 2; + else + perror_with_name ("ptrace ldinfo"); } else { - vmap_ldinfo (ldi); - vmap_exec (); /* relocate the exec and core sections as well. */ + vmap_ldinfo (ldi); + vmap_exec (); /* relocate the exec and core sections as well. */ } } while (rc == -1); + if (ldi) + free (ldi); } /* Core file stuff. */ -- 2.30.2