}
}
+#ifdef SOLIB_ADD
+/* Stub function for catch_errors around shared library hacking. */
+
+int
+solib_add_stub (from_tty)
+ int from_tty;
+{
+ SOLIB_ADD (NULL, from_tty, &core_ops);
+ return 0;
+}
+#endif /* SOLIB_ADD */
+
/* This routine opens and sets up the core file bfd */
void
if (ontop) {
/* Fetch all registers from core file */
target_fetch_registers (-1);
+
/* Add symbols and section mappings for any shared libraries */
#ifdef SOLIB_ADD
- SOLIB_ADD (NULL, from_tty, &core_ops);
+ (void) catch_errors (solib_add_stub, from_tty, (char *)0);
#endif
/* Now, set up the frame cache, and print the top of stack */
set_current_frame ( create_new_frame (read_register (FP_REGNUM),
double dfrom = *from;
unsigned long twolongs[2];
unsigned long mant0, mant1, exponent;
- unsigned char twobytes[2];
+ unsigned char tobytes[8];
bzero (to, TOTALSIZE);
if (dfrom == 0)
/* The following code assumes that the host has IEEE doubles. FIXME-someday.
It also assumes longs are 32 bits! FIXME-someday. */
bcopy (from, twolongs, 8);
- bcopy (from, twobytes, 2);
+ bcopy (from, tobytes, 8);
#if HOST_BYTE_ORDER == BIG_ENDIAN
- exponent = ((twobytes[1] & 0xF0) >> 4) | (twobytes[0] & 0x7F) << 4;
+ exponent = ((tobytes[1] & 0xF0) >> 4) | (tobytes[0] & 0x7F) << 4;
mant0 = (twolongs[0] << 11) | twolongs[1] >> 21;
mant1 = (twolongs[1] << 11);
#else
- exponent = ((twobytes[0] & 0xF0) >> 4) | (twobytes[1] & 0x7F) << 4;
+ exponent = ((tobytes[6] & 0xF0) >> 4) | (tobytes[7] & 0x7F) << 4;
mant0 = (twolongs[1] << 11) | twolongs[0] >> 21;
mant1 = (twolongs[0] << 11);
#endif