* ld-cris/expdyn1.d, ld-cris/expdyn5.d, ld-cris/expdyn6.d,

[deliverable/binutils-gdb.git] / gdb / alpha-nat.c

diff --git a/gdb/alpha-nat.c b/gdb/alpha-nat.c
index 62486cf05cecd6379a143ea282b1e96f136ca00f..6fe6bdfeec62a8419143aaf33cbf0d566d95d12b 100644 (file)
--- a/gdb/alpha-nat.c
+++ b/gdb/alpha-nat.c
@@ -99,7 +99,7 @@ fetch_osf_core_registers (char *core_reg_sect, unsigned core_reg_size,
     {
       if (CANNOT_FETCH_REGISTER (regno))
        {
-         supply_register (regno, NULL);
+         regcache_raw_supply (current_regcache, regno, NULL);
          continue;
        }
       addr = 8 * core_reg_mapping[regno];
@@ -108,7 +108,7 @@ fetch_osf_core_registers (char *core_reg_sect, unsigned core_reg_size,
          /* ??? UNIQUE is a new addition.  Don't generate an error.  */
          if (regno == ALPHA_UNIQUE_REGNUM)
            {
-             supply_register (regno, NULL);
+             regcache_raw_supply (current_regcache, regno, NULL);
              continue;
            }
          if (bad_reg < 0)
@@ -116,7 +116,7 @@ fetch_osf_core_registers (char *core_reg_sect, unsigned core_reg_size,
        }
       else
        {
-         supply_register (regno, core_reg_sect + addr);
+         regcache_raw_supply (current_regcache, regno, core_reg_sect + addr);
        }
     }
   if (bad_reg >= 0)